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!.0 GENERAL PROGRAM CONSIDERATIONS 

1 1 PftOGRAH ABSTRACT 

CZOHXAC IS PART OF THE DHU VI FUNCTIONAL VERiriCATION TEST. 
THIS PART or THE TEST PERFORMS EXTENSIVE DATA TRANSMISSION AND 
RECEPTION TESTS. THIS PART ALSO INCLUDES A KErBOARD ECHO AND 
MOOCH LOOPBACK TEST. 



THIS DIAGNOSTIC MAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE CSUPERVISOR). ThCSE SERVICES PROVIDE 
THE INTERTACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXOP*. ACT. APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES. RE^ER 
TO THE XXDP* USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN THE OPERATING INSTRUCTIONS -COMMANDS 
OF THIS DOCUMENT. 



1.2 STSTEM REQUIREMENTS 

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DHU 11 FvT; 

0 UNIBUS PROCESSOR WITH AT LEAST 52K BYTES 0* MEMORt . 

0 DHU BOARDS INSTALLED ON THE UNIBUS. 

0 APPROPRIATE PROGRAM LOAD DEVICE SUPPORTING XXDP* 
MEDIA OR A DOWN LINE LOADING SYSTEM. 



1.3 RELATED DOCUMENTS AND STANDARDS 

0 XXDP* USERS MANUAL DESCRIBES THE RUNNING OF DIAGNOSTICS 
UNDER THE XXOP» MONITOR. 

1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

THE PROCESSOR. IHE. UNIBUS. THE SYSTEM MEMORY. ThE CONSOLE TERMINAL 
AND THE LOAD MEDIA ARE ASSUMED TO HAVE BEEN TESTED AND FQUNO WORKING 
BEFORE THIS PROGRAM IS RUN. 
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■i.O OPtft/tTING INSTRUCTIONS 

THIS SeCTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR OETAILFO INTORHATION. REFER TO ThC XXOP. USER'S MANUAL (CHQUS). 



. I COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXOP. USER'S MANUAL MAS MORE DETAILS. 



COMMAND 



EFFECT 



START 



START THE DIAGNOSTIC FROM AN INITIAL STATE 
START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC ) 
CONTINUE FROM AN ERROR MALT 

RETURN TO XXOP* MONITOR CXXOP* OPERATION ONLY!) 
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 
DEACTIVATE A UNIT 

PRINT STATISTICAL INFORMATION (If IMPLEMENTED 

BY THE DIAGNOSTIC - SEE PERFOMANCE AND PROGRESS 

REPORTS SECTION OF THIS DOCUMENT) 

TYPE A LIST OF ALL DEVICE INFORMATION 

T»PE THE STATE OF ALL FLAGS (SEE FLAGS SECTION) 

CLEAR ALL FLAGS (SEE FLAGS SECTION) 



RESTART 
CONTINUE 
PROCEED 
EXIT 



ADD 



DROP 
PRINT 



DISPLAY 

FLAGS 

ZFLAGS 



A COMMAND CAN BE RECOGNIZED By THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE. TtPE STA" INSTEAD OF 'START'. 
MORE INFORMATION CAN BE FOUND WITHIN THE SECTION LABEILEO 
EXTENDED COMMAND SYNTAX 



P.. swircHCs 



THERE ARE SEVERAL SWITCHES WHICH ARE USED TO HOOirr SUPERVISOR OPERATION. 

These switches are APPEf«>EO to the legal commands, all or the legal 

SWITCHES AWE tabulated BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED B» "ODDDO" . 

SWITCH EFFEC- 

/T£5TS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 

THE LIST. LIST IS A STRING OF TEST 
NUMBERS. FOR EXAMPLE /TESTS: I :5: 7- 10. 
THIS LIST WILL CAUSE TESTS 1,5,7.8.9.10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 

/PASS:0DDO0 EXECUTE DDOOD PASSES (DODDD - I TO 64000) 

/FLAGS:FLG5 SET SPECIFIED FLAGS. SEE THE FLAGS SECTION 
OF THIS DOCUMENT. 

/E0P:DO00O REPORT END OF PASS r«SSAGE AFTER EVERT 

OOOOD PASSES ONLY. (ODDDD - 1 TO 64000) 

/UNITS:LIST TEST/ADD/WOP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE /UNITS ! 0: 5 : 10 - 12 
USE UNITS 0.5.10.11.12 CUNIT NUMBERS • 0-65) 

EXAMPLE OF SWITCH USAGE: 

START/TESrS:! 5/PASS: 1000 /EOP: 100 

THE EFFECT OF THIS COMMAND WILL BE: I) TESTS 1 THROUGH 5 WILL BE 
EXECUTED. 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE EhO OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. tOU MAY. 
FOft EXAMPLE. TyPE "/TES:1-5" INSTEAD OF "/TESTS: 1 5". 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED By EACH 
COMMAND. 

TESTS PASS FLAGS EOP UNITS 

START XX XX X 

RESTART XX XX X 

CONTINUE X XX 

PROCEED X 

DROP X 

ADO X 

PRINT 

DISPLAY X 

FLAGS 

ZFLAGS 

EXIT 



A09 

fL#»CS M*E USED TO SET uP CERTAIN OPtRATIONAL PARAMETERS SOCm AS 
LOOPIMC ON ERROR. ALL TLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY ^T USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A STU-^T COMHAND UNLESS SET USING THE 
FLAG SWITCH, THE 2FLAGS COMHANO «AY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS. 
NO COMMANDS AFFECT THE STATE OF THE FLAGSs THEY REMAIN SET OR 
CLEARED AS SPECIFIED Bv T»C LAST FLAG SWITCH. 



FLAG EFFECT 

HOE HALT ON ERROR CONTROL IS RETURNED TO 

RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

lER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TrPE. NUMBER, PC. TEST AND UNIT) 

IXR* INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE "BELL " ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 

STATISTICAL REPORTING) 
IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 

HAVE EVALUATION SUPPORT) 



♦SEE THE ERROR INFORMATION SECTION OF THIS DOCUMENT, 



SEE THE XXOP* USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH, FOR EXAMPLE. 
TO CAUSE THE PROGRAM TO LOOP ON ERROR. INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR. YOU MAY USE THE FOLLOWING STRING: 

/FLAGS :LOE:IER:BO£ 
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2.4 exTEMXD COrtMND SYNTAX 
2.4.1 START CONHAMO - 



STA(RT)/TESTS:<TEST-LIST>/PASS:<PASS-Cl»T>/FLAGS: 
<FL/IC-I IST>/EOP:<INCR> 



2.4.1.1 TESTS SUITCH C/TESTS:<TEST-LIST>5 - 

<TEST'LIST> IS A SEQUENCE Of DECIMAL NUMBERS (1:2 ETC.) OR RANGES 
or OECIHAL NUMBERS Cl-5:8-10 ETC.). SEPERATEO Br COLONS, THAT SPECirr 
THE TESTS TO BE EXECUTED. TESTS WILL BE EXECUTED IN NUMERICAL ORDER 
REGARDLESS OF THE ORDER OF SPECIFICATION. THE DEFAULT 13 TO EXECUTE 
ALL TESTS. ON THIS AND ALL SWITCHES. THE ANGLE BRACKETS <> ARE 
PUNCTUATION USED IN THE DEFINITION ONLY. AND ARE NOT TO BE TYPED BY 
THE OPERATOR. SEE EXAMPLE AT END OF "EFFECT OF START COMMAND" 
SECTION. 



2.4.1.2 PASS SWITCH (/PASS: <PASS-CNT> ) - 

<PASS-CNT> IS A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF 
PASSES. A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC 
(ALL SELECTED TESTS), THE DEFAULT IS NON-ENDING EXECUTION. IN THIS 
CASE. EXIT FROM THE PROGRAM IS ACCOMPLISHED EITHER Bt TYPING A 
CONTROL /C OR BY OCCURANCE OF AN ERROR WITH THE HALT ON ERROR FLAG 
BEING SET. THE EXIT IS A RETURN TO COMMAND MODE. SEE FXAMPLE AT Ehtf) 
OF "EFFECT OF START COMMAND" SECTION. 



2.4.1.3 FLAGS SWITCH ( /FLAGS: <FLAG-LI5T> ) - 

<FLAG-LIST> IS A SEQUENCE OF ELEMENTS OF THE FORM <FLAG> , 
<FLAG-1>, OR <FLAG«0>. SEPARATED BY COLONS. WHERE <FLAG> HAS ONE OF 
THE FOLLOWING VALUES: 

HOE HALT ON ERROR. CAUSING COMMAND MODE TO 

BE ENTERED WHEN AN ERROR IS ENCOUNTERED. 
LOE LOOP ON ERROR. CAUSING THE DIAGNOSTIC TO 

LOOP CONTINUOUSLY WITHIN THE SMALLEST 

DEFINED BLOCK OF COOING (SEGMENT, SUBTEST, 

OR TEST) CONTAINING THE ERROR. 
lER INHIBIT ERROR REPORTING. 
IBE INHIBIT BASIC ERROR REPORTS. 
IXE INHIBIT EXTENDED ERROR REPORTS. 
PRI DIRECT ALL MESSAGES TO A LINE PRINTER, 
PNT PRINT NUMBER OF TEST BEING EXECUTED. 
BOE BELL ON ERROR (NOT RELATED TO BELL PROMPTING). 
UAM RUN IN UNATTENDED MODE. BYPASSING MANUAL 

INTERVENTION (ILLEGAL FOR THIS DIAGNOSTIC). 
ISR IWI8IT STATISTICAL REPORTS. 
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lOU IMIIBlT DROPPING OT UNITS Bv DIAGNOSTIC. 
(HAS NO EFFECT IN TMiS DIAGNOSTIC. ) 

LOT LOOP ON TEST. 
TmE TLACS named Oft EQUATED TO I ARE SET. THOSE EQUATED TO 0 ARE 
CLEARED. A FLAG NOT SPECIFIED IS CLEARED. IF THE FLAGS SWITCH IS NOT 
GIVEN ALL FLAGS ARE CLEARED. SEE EXAMPLE AT END OF "EFFECT OF START 
COrtlANO ' SECTION. 



2.4,1,4 END OF PASS SWITCH ( /EOP : < INCR > ) - 

<INCR> IS A OECIrtAL NUMBER INDICATING HOW QFTFN (IN TERMS OF 
PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED. ThE 
DEFAULT IS AT THE END OF EVERt PASS. SEE EXAMPLE AT END OF "EFFECT OF 
START COMMAND" SECTION. 



2.4.1.5 EFFECT OF START COMMAND - 

THE EFFECT OF T»€ START COMMAND IS TO INITIATE THE HARDWARE 
PARAMETER DIALOGUE. THE SOFTWARE PARAMETER DIALOGUE. THE 
INITIALIZATION QUESTIONS. AND THEN T»€ DIAGNOSTIC COMMENCES TESTING. 

THE HARDWARE PARAMETER DIALOGUE COMMENCES WITH THE QUESTION '« 
UNITS CD) ?" TO WHICH THE OPERATOR SHOULD REPLY WITH THE NUMBER OF 
UNITS TO BE TESTED. FOLLOWING THIS ARE THE QUESTIONS WHEREBY THE 
P- TABLES THEMSELVES ARE BUILT. EACH P- TABLE IS A CORE -RESIDENT TABLE 
CONTAINING ALL THE HARDWARE INFORMATION FOR ONE COMPLETE UNIT. EACH 
QUESTION IS FOLLO»«D BY THE RESPONSE RADIX (D FOR DECIMAL. B FQR 
BINARY. 0 FOR OCTAL. L FOR YES/NO) IN PARENTHESES AND THE DEFAULT 
VALUE AFTER THE PARENTHESES. FOR THE ACTUAL HARDWARE P TABLE 
QUESTIONS SEE THE "HARDWARE PARAMETERS" SECTION. 

FOLLOWING THE HARDWARE QUESTIONS ARE THE SOFTWARE QL€STIQNS TO 
BUILD THE SOFTWARE TABLES. WHICH DEFINE OPERATING PARAMETERS OF THE 
DIAGNOSTIC PROGRAM. THESE QUESTIONS ARE DESCRIBED IN THE SOFTWARE 
PARAMETERS" SECTION. 

EXAMPLE: 

5TA/TEbTS:l:5-4:/PASS:5/FLAGS:IER:H0E-l 



TMIS COMMAND WILL CAUSE THREE PASSES TO BE MADE. WITH EACH PASS 
CONSISTING OF TESTS 1.3. AND 4. THERE IS NO DIFFERENCE BETWEEN SAYING 
<FLAG> ANO SAYING <FLAG-1>. ThC NOTATION 'FlAG'O' IS MEANINGFUL ONLY 
ON A COMMAND OTHER THAN START TO CLEAR A FLAG ymAT WAS PREVIOUSLY SET. 
NOTE THAT ON ALL COMMANDS ONLY THE FIRST THREE LETTERS ARE SCANNED. 
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HfSt f /HIT VTMTS s < TCST -LIST >/PHSS : «P<ISS -CMT > /TLUGS : 
4rUIC'LlSf*AmiS: <UNIT -LIST* 



2,4.2.1 rcsrs. PASS, imo flags suitdcs - 

<T6ST.LIST». <PASS-P«T*. AND *rLAG-LIST> ARE AS IN THE START 
COMNAM). 



2.4.2.2 UNITS SWITCH ( /UNITS :<UNIT -LIST >) - <UMIT-LIST> IS A SEQUENCE 
or OeCIHAL HJtVenS CO.l etc.) or ranges of decimal numbers (0-5. 8-10 
ETC.) THAT SPCCIFT THE UNITS TO BE TESTED. THE NUMBERS ARE SEPARATED 
8t CXONS. the NUMBERS MAr RANGE FROM 0 THRU N-l (N IS THE NUMBER OF 
UNITS SPECIFIED IN THE PREVIOUS START COMMAND), THE NUMBER INDICATES 
THE POSITION OF THE P- TABLE AS THE DATA WA«^ ENTERED DURING THE 
HARDWARE OIAGLOGUE. THE UNITS WHICH ARE SELECTED MUST NOT HAVE BEEN 
DROPPED BY THE DROP COMMAND. SEE THE DISCUSSION OF ADO AND DROP 
COMMANDS BELW. DEFAULT IS TO TEST ALL UNITS WHICH HAVE NOT BEEN 
DROPPED BY A DROP COMMAND. 



2.4,?, 3 EFFECT OF RESTART COMMAND - 

THE RESTART COMMAND DIFFERS FROM THE START COMMAND IN THAT THE 
P- TABLES FROM THE PREVIOUS START COMMAND (THERE MUST HAVE BEEN ONE) 
ARE USED. INSTEAD OF NEW ONES BEING BUILT. THE UNITS SWITCH SHOULD 
NOT BE USED WITH THIS PROGRAM, THE SOFTWARE DIALOGUE MAY OPTIONALLY 
BE REEXECUTEO (OPERATOR WILL BE ASKED). THE COMMAND CAN BE USED AFTER 
COMMAND MODE HAS BEEN REENTERED IN ANY OF THE THREE NORMAL WAYS: A) 
THE REQUESTED NUMBER OF PASSES HAVE BEEN MADE. B) AN ERROR WAS 
ENCOUNTERED WITH THE HALT ON ERROR FLAG SET. OR C) A CONTROl /C WAS 
ENTERED BY THE OPERATOR. 



2.4.3 CONTINUE COMMAND - 

CON( TINUe )/PASSs «PASS-CNT/FLAGS: «FLAG -HST> 



2.4.3.1 FLAG SWITCH ( /FLAGS :<FL AG -L 1ST » ) - 

<FIAC-LIST> IS SAME AS IN THE START COMMAND. BUT UNSPECIFIED 
FLAGS RETAIN THEIR CURRENT VALUE. 
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2.4,5.2 trrzci or contimue conmio 

CONTINUE tfJST FOLLOW A STMtT OR RESTART. AND C0r«1AN0 MODE MUST 
HAVE BEEN ENTERED DUE TO A HALT ON ERROR OR A CONTROL /C. THE EFFECT 
Of THE COHMMND IS TO GO TO T»C BEGIIMING OF THE TEST THAT UAS BEING 
EXECUTED WHEN THE HALT OR CONTROL/C TOOK PLACE. SOFTWARE DIALOGUE MAY 
OPTIONALLY 8E REExECUTEO. HARDWARE PARAfCTERS MAY NOT BE CHANGED. 



2.4.4 PROCEED COMTIANO - 
PRO( CEED )/FLAGS : <FLAG -L 1ST > 



2.4.4.1 FLAGS SWITCH C /FLAGS ;<FLAG-L 1ST > ) - 

<FLAG-LIST> IS AS IN T»C START CONHAND. BUT UNSPECIFIED FLAGS 
RETAIN THEIR CURRENT VALUE. 



2.4.4,2 EFFECT OF PROCEED COMMAND - 

PROCEED MUST FOLLOW A START. RESTART. OR CONTINUE. COMMAND MODE 
MUST HAVE BEEN ENTERED VIA A HALT ON ERROR. THE EFFECT OF THE COMMAND 
IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE ERROR CALL. 
NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED. 



2.4,5 ADD COMMAND - 
ADD/UNITS: <UNIT-LIST> 



2.4.6 EFFECT OF ADO COMMAND - 

THE UNITS SPECIFIED ARE ADDED TO THE TEST SEQUENCE. EACH 
UNIT M»JST HAVE A P-TABLE IN MEMORY DUE TO AN EARLIER 
HARDWARE DIALOGUE. THIS COMMAND MUST BE FOLLOWED Br A 
RESTART OR CONTINUE. THE UNITS SWITCH MUST BE SPECIFIED. 
THE ADO COMMAND IS MEANINGFUL ONLY FOR UNITS THAT WERE 
PREVIOUSLY DROPPED. 



2.4.7 DROP COMMAND 



DRO(P)/UNITSs<UNIT LIST> 
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2.4.8 Effeci or DROP cavmc - 

THE UNITS SPeCIFIEO MILL 8E IWOPPED FROn TESTING. TIC UNITS 
WILL K RESELECTEO ONLY By T»C EXECUTION OF AN 400 OR START 
COMTMND. r« UNITS SUITCM MUST BE ENTEREO. ^HIS COHNANO 
**JS1 BC FOLLOUEO BY 4 RESTART OR 4 CONTINUE COmAND. 



2.4,9 PRINT COMMAND - 

PRIfNT) 



2,4.9.1 EFFECT OF PRINT COMHAND 

THE TOTAL NUHBER OF ERRORS FOR EACH UNIT SINCE THE LAST 
START OR RESTART CnHHANO ARE PRINTED. THE ISR (INHIBIT 
STATISTICAL REPORTING) FLAG IS CLEARED, 



2.4.10 DISPLAY COrtMAND - 
DISCPLAY )/UNITi: <ONIT -LIST > 



2.4.10.1 EFFECT OF DISPLAY COMMAND - 

THE HARDWARE P- TABLE FOR THE TEST STATION IS PRINTED IN THE 
FORMAT IN WHICH IT WAS ENTEREO. 



2.4.11 FLAGS COMMAND 
FLACGS) 



2.4,11.1 EFFECT OF FLAGS COMMAND - 

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 
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2.4.12 ZFLAGS CONTMNC 



2.4,15 ZrtACS COMMAND 

ALL TLACS ARE CLEARED. 

2.4,14 CONTROL CHARACTERS - 

C A CONTROL/C (C) ENTERED DURING THE EXECUTION OF A 
DIAGNOSTIC CAUSES A RETURN TO COTtlANO HODE. 

Z A CONTROC/Z (Z) ENTERED DURING ONE OF THE TWO 
OPERATOR DIALOGUES- HARDWARE P- TABLE DIALOGUE OR 
SOFTWARE P- TABLE DIALOGUE CAUSES THE DEFAULTS TO BE 
TAKEN FOR THE REMAINDER OF THAT DIALOGUE. 

0 A CONTRa./0 (0) ENTERED DURING THE EXECUTION OF A 
DIAGNOSTIC CAUSES ALL TELETYPE OUTPUT TO BE 
SURPRESSEO FOR THE REMAINDER OF THE DIAGNOSTIC OR 
UNTIL ANOTHER CONTROL/0 IS TYPED, WHICH RESTORES 
NORMAL TELETYPE OUTPUT. 



PR0GA4H roa*«NT 

(•«N A OIACNOSTIC IS STARTED. THE RUNTirc SERVICES UiLL OROMPI 
THE USER rOR HMIOUARE IITORnATION Br TYPING "CHANGE HU (L) ? 
tOU HUST ANSWER "V AFTER A START COMMAND UNLESS THE HARDUARi 
It#^ORMATION HAS SEEN -PRELOADED" USING THE SETtP UTILITY (SEE 
CHAPTER 6 or THE XXOP» USER'S MANUAL). UHEN YOU ANSUER THIS 
QUESTION UITN A "Y". THE RUNTIME SERVICES UILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). YOU UILL THEN BE ASKED THE FOLLOWING 
OUESTIONS FOR EACH UNIT. 

1. CSR AOOfMESS THIS OUESTION REQUESTES THE CSR ADDRESS OF THE 
SPECiriEO DHU-ll. THE DEFAULT ANSUER FOR THIS QUESTION IS 
AOOfKSS 160460 (OCTAL). 

2. INTERRUPT VECTOR ADDRESS - THIS QUESTION REQUESTS THE INTERRUPT 
VECTOR ADDRESS V THE SPECIFIED DHU 11. THE DEFAULT ANSWER 
fOR THIS QUESTION IS 310 (OCTAL). 

3. ACTIVE LINES BIT MAP - THIS QUESTION REQUESTS AN OCTAL BIT 
MAP OF THE SERIAL CO»«IUNICAriON LINES ON THE DHUU UHICH ARE 
BEING SELECTED FOR TESTING. IF THE BIT IN THE BIT MAP IS SET 
WHICH CORRESIHJNDS TO A PARTICULAR LINE (I.E. BIT 5 FOR LINE 
5 ) THAT LINE UILL BE TESTED Bv THE FVT. THE DEFAULT ANSWER 
F0« THIS QUESTION IS ALL LINES I.E. 177777. 

4. TYPE OF LOOPBACK (l-INTERNAL. 2-H5029 OR HS277. 3-H325 

4 -MODEM. S-KEtBOARO ECHO). 
THIS OLCSriON REQUESTS THE TYPE OF LOOPBACK TO BE USED UHEN 
TESTING THE DHU 11. 
THE FOLLOUING TYPES ARE SUPPORTED: 

0 INTERNAL ONLY INTERNAL UART LOOPBACK IS TO BE USED IN 
TESTING THE DHU U. 

0 H5029 OR HS277 STAGGERED LOOPBACK CONNECTORS ARE PROVIDED 
ON THE OHUlt DISTRIBUTION PANEL (HS029) IF THIS DISTRIBUTION 
PANEL IS NOT PRESENT THEN H3277 STAGC^REO BERG CONNECrOR(S) 
MUST BE INSTALLED ON THE BERG CONNECTOR SOCKETS OF THE OMUll. 

0 H325 - SINGLE LINE. 25 PIN LOOPBACK CONNECTORS (TYPE H325) 
ARE INSTALLED ON THE LINES TO BE TESTED. 

0 MODEM - THE OPERATOR IS ALLOWED TO SET UP A MODEM LINK 
AND THEN PERFORM A TRANSMISSION AND RECEPTION TEST AT A 
SINGLE BAUDRATE UITH THE MODEM CONTROL SIGNALS DTR AND RTS 
ACTIVE. THIS IS A SPECIAL TEST AND ALL OTf«iR TESTS IN THIS 
PART UILL BE PERFORMED IN INTERNAL LOOPBACK. 

0 KEYBOARD ECHO • THE UARTS ON THE OUT ARE PLACED IN REMOTE 
LOOPBACK. TERMINALS (Oft OTHER COMMUNICATIONS EQUIPMENT) 
UILL MAVt WHATEVER THtr TRANSMIT TO THE Omu LOOPED BACK TO 
THEM. 
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SOFTUAflE QUESTIONS 

/VTER VOU HAVE ANSUCRED THE HARDWARE QUESTIONS OR AFTER <^ RESTART 

OR CONTINUE COMNANO. THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. T»CSE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MOOES. vOU WILL BE PROMPTED Br "CHANGE SW (L) ?' 

IF rOU WISH TO CHANGE ANY PARAMETERS, ANSWER Br TtPING 

"Y T»C SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPH(S). 

REPORT UNIT NUMBER AS EACH UNIT IS TESTED - THIS QUESTION ASKS 
WHETHER T»C PROGRAM SHOULD REPORT THE NUMBER OF THE UNIT WHICH 
IT IS TESTING AS IT BEGINS TO TEST THAT UNIT. 

REPORT NUMBER OF BITS TESTED IN DMA AOOR TEST THIS QUESTION 
ASKS WHETHER THE OPERATOR WANTS A PRINTOUT DESCRIBING WHICH 
ADDRESS BITS HAVE BEEN TESTED WHEN THE DMA ADDRESSING TEST 
EXECUTES. 

EXTENDED ERROR REPORTING - THIS QUESTION ASKS WHETHER EXTENDED 
ERROR INFORMATION IS REQUIRED OTHER THAN THE "TEST FAILED" 
MESSAGE. ON EACH ERROR REPORTED. THE DEFAULT IS "NO" I.E. 0NL1 
A MESSAGE REPORTING THE FACT THAT THE TEST FAILED WILL BE 
PRINTED. 

NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE - THIS 
QUESTION IS ASKED ONLY IF THE PREVIOUS QUESTION WAS ANSWERED 
"YES", THE QUESTION ASKS FOR T>C NUMBER OF DATA ERRORS WHICH 
SHOULD BE REPORTED INDIVIDUALLY By THIS PROGRAM FQR EACH LINE 
FOR EACH TRANSMISSION TEST. ERRORS WHICH ARE NOT REPORTED 
INDIVIDUALLY ARE REPORTED IN SUMMARY ERROR REPORTS. 
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•^►CN tOfJ ANSICR T^C HARDWARE QUESTIONS. YOU ARE BUILDING ENIRIfcS 

*rI*S!-| DESCRIBES T»C DEVICES UNOcR TEST THE SIMPLEST 

^WjO^^^lll^ "^^.k^, ^SJ^SWER ALL QUESTIOi;,S IITh 

rJisJ°s?SR^I18NTRSL^WsE\SkL"a!5|? SE^i^loSSllSiTION 

?S?^SsSiS 2E^SE%^f?!ius!"^^ •'"^^^ xlolSuf sJN^^TX^f^Sr^'^ 

TO ILLUSTRATE A HORE EFFICIENT METHOD. SUPPOSE YOU ARF TF^TTwr 

2 rJ^l^^TLS^^^^^' sOppose Tms OEvlcE cwsll?s 2^ 

fiS?\'^T^^n^i72rlJS^I ^I'S fSUB DEVICES) ATTAChIo TO IT. 

"ifP^T ?JAj*CAS^I!kY'^^^i;f gs,^>„^^"^ 

?6i[iL°S'A ;sL%°F^-^s? ;?;i'*Ei?k°?iJat ^ 

• UNITS CD) ? 8<CR> 
UNIT I 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 0«CR» 
Q-FACTOR (0) 0 ? 1*CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000* CR> 
SUB-DEVICE • (0) ? 1<CR> 
Q-FACTOR (0) I ? 0<CR> 

UNIT S 

CSR ADDRESS (0) ? 160000<CR> 
SUB -DEVICE • (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR» 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 5 

CSR ADDRESS fO) . 160000<CR> 

SUB-DEVICE « (0) 4<CR> 

Q-FACTOR (0) 0 ? <CR> 

UNIT 6 

CSR ADDRESS fO) ? 160000<CR» 
SUB-DEV7CE 9 (0) ? 5<CR> 
Q-FACTOR (0) 0 ? *CR> 

UNIT 7 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICF 9 (0) ? 6<CR> 
Q f ACTOR CO) 0 ? 1<CR> 
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UNIT 8 

est) ADDRESS CO) 160000<CR> 

SUB DEVICE » (O) ? 7«CB» 
0 fACTOR (0) I ? *CR> 

WTICE THAT THE DEfAULT VALUE FOR THE Q FACTOR CHANGES WHEN A 
NON-OEPAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECirtING 
HUITIPLE UNITS! 

AS TOO CAN SEE TROU THE ABOVE EXAMPLE. THE HARDWARE PARAMETERS 

DO MOT VARY SIGNiriCANTLT FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD T»« SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 

• UNITS (D) ? 8<CR> 
UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE • CO) ? 0.1<CR> 
Q-FACTOR CO) 0 ? 1.0<CR> 

UNIT 3 

CSR ADDRESS CO) ? 160000 <CR> 
SUB-DEVICE • CO) ? 2 5<CR» 
0-FACTOR CO) 0 ? 0<CR> 

UNIT 7 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE » CO) ? 6.7<CR> 
0-FACTOR CO) 0 7 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE. THE RUNTIME SERVICES WILL 
BUILD AS MANV ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANt 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PA<:S, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB -DEVICES WERE SPECIFIED. THE 

CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE. SUB -DEVICES 
2. B, 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES. THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLf SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

« ^JNITS CD) ? 8.CR. 
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UNIT 1 

CSP ADDRESS CO) ? 160000<CR> 

suB-oevice • (o) ? o-7<cr> 

0 FACTOR CO) O ? 0.l.0....l.l«CR> 

AS YOU CAN S££ FROM THIS EXAMPLE. NULL REPLIES CCOMMAS ENCLOSING 
A NULL flELO) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 



2.8 OUIC START-UP PROCEDURE (XXDPO 
TO START .UP THIS PROGRAM: 

1. BOOT XXOP» 

2. GIVE THE DATE AND ANSWER THE LS''/UNIBUS AND 50MZ (If THERE 
IS A CLOCK) QUESTIONS. NOTE. NOT ALL VERSIONS OF XXOP» ASK 
FOR THE CLOCK FREQUENCY 

3. TYPE "R NAME". UHERE NAME IS THE NAME OF THE BIN OR 
BIC FILE FOR THIS PROGRAM 

4. TYPE "START" 

5. ANSWER THE "CHANGE HU" QUESTION WITH "Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 

DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. FOR OEFALl-T INFORMATION 

SEE THE SECTIONS WITHIN THIS D0Cl»1ENT ON FLAGS, AND HARDWARE QUESTIONS. 
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5.0 EMOP TNFOmATION 

3.1 TYPES OF ER«OR MESSAGES 

THERE APE THREE LEVELS OF ERROR ftSSAGES THAT MAY BE ISSUED Br 
A DIAGNOSTIC: GENERAL. BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAtS PRINTED UNLE«C THE "lER" FLAG IS SET (SEE THE FLAGS SECTION 
OF THIS DOCUMENT). 

THE GENERAL ERROR MESSAGE IS OF THE FORH: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 

.WHERE; NAME « DIAGNOSTIC NAME 

TYPE - ERROR TYPE (SYS FATAL. OEV FATAL. HARD OR SOFT) 
NUMBER - ERROR NUMBER 

UNIT NUMBER - 0 - N CN IS LAST UNIT IN PTABLE) 
TST NUMBER - TEST AND SUBTEST WHERE ERROR OCCURRED 
PCrXXXXXX ' ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "lER" OR "IBR" FLAGS ARE SET (SEE THE FLAGS SECTION OF THIS 
DOCUMENT). 

THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR COOO/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "lER". "IBR" OR "IXR" FLAGS ARE SET (SEE THE 
FLAGS SECTION OF THIS DOCUMENT). 

THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 
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5 2 SPECIFIC EftPOR HESSAGCS 

THIS PROGRAM IS INTENOeO PROVIDE A GO/NOGO INDICATION 
or TME FUNCTIONALITY OF THE OMU 11 BOARDS. TO EXECUTE THE 
PROGRAM IN THIS MODE THE OPERATOR NEED ONLY ANSMER THE 
"EtTENOEO ERROR REPORTIfte" SOFTWARE QUESTION WITH "NO". THE 
PROGRAM WILL THEN ONLY PRINT THE NAME OF THE FAILING TEST 
THE TEST AND ERROR NUMBERS. FOR A LIST OF THE TEST NAMES 
IN THIS PROGRAM SEE THE TEST SUMMARIES SECTION OF THIS 
DOCUHENT. AN EXAMPLE OF SUCH A AN ERROR MESSAGE IS THE 
FOLLOUING: 

C20HX DVC FTL ERR 4409 ON UNIT 00 TST 04 SUB 000 PC: XXXXXX 
DMA ADDRESS TEST FAILED 

THIS ERROR INDICATES THAT A FATAL ERROR UAS ENCOUNTERED 
DURING THE TEST UHICH TESTS THE DMA ABORT BIT. 

IF THE OPERATOR HAD REQUESTED EXTENDED ERROR REPORTING THE 
SAME ERROR UOULO BE REPORTED AS FOLLOWS: 

CZDHX DVC FTL ERR 4409 ON UNIT 00 TST 04 SUB 000 PC: XXXXXX 
DMA ADDRESS TEST FAILED 
BAD BITS BETWEEN BITS 0 AND 15. 



4.0 PERFORHANCE /<HD PROGRESS REPORTS 

AT THE END OF EACH PASS. THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC W,^S STARTED. 
THE "EDP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. FOR FUTHER INFORMATION SEE THE 
SWITCHES SECTION OF THIS 00CUMEN1 . 
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5.0 TEST SUMMARIES 

THE rOLLOUING ARC INCLUDED WITHIN CZOHXA: 



I. DEVICE REGISTER ACCESS TEST VERiriES THAT THE UUT REGISTERS 
UILL RESPOND WITH THE CORRECT UNIBUS HANDSHAKING SIGNALS. 
VERIFIES THAT THE UUT IS AT THE CORRECT ADDRESS. 

^. KErBOARD ECHO TEST ALLOWS THE OPERATOR TO TEST TERMINAL LINKS 
(OR OTHER COMMUNICATIONS LINKS). WHICH ARE ATTACHED TO UUT 
SERIAL PORTS. FROM REMOTE ENDS OF THE LINKS. 

3. MODEM LOOPBACK TEST - ALLOWS THE OPERATOR TO TEST MODEM LINKS 
WHICH ARE ATTACHED TO THE UUT SERIAL PORTS. 

4. DMA ADDR TEST - VERIFIES THAT THE UUT CAN ACCESS THE FULL 
MEMORY WHICH IS ON THE MACHINE VIA DMA ACCESS. 

5. FRAMING ERROR TEST - VERIFIES THAT FORCED FRAMING ERRORS ARE 
REPORTED CORRECTLY. 

6. PARITY ERROR TEST - VERIFIES THAT FORCED PARITY ERRORS ARE 
REPORTED CORRECTLY. 

7. DMA MODE TEST - VERIFIES THAT THE UUT WILL TX AND RX DATA 
CORRECTLY USING DMA TRANSMISSION. 

8. SPLIT SPEED TEST - VERIFIES THAT THE UUT WILL FUNCTION 
CORRECTLY USING DIFFERENT TX AND RX SPEEDS ON EACH ACTIVE LINE. 

9. REPORT BMP COOES TEST - THIS PSEUDO TEST REPORTS THE FIRST 32 
CHARACTERS WHICH WERE DISCOVERED IN THE FIFO DURING THE 
EXECUTION OF THE OTHER TESTS. THIS AVOIDS INTERRUPTION OF THE 
OTHER TESTS BY THESE CODES IF THEY ARE NOT CRITICAL TO THE 
PERFORMANCE OF THE TESTS. 
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6.0 EXAMPLE ERROR FREE PASS 

THE FOLLOWING IS AN EXAMPLE OF AN ERROR FREE PASS DIALOGUE: 

.R CZOMXAO 

CZDHXAO.BIN 

ORS 

CZDMX-A-0 

DMU-11 FUNC TST PMRT4 
UNIT IS OMU-ll 
RESTRT AODR: 147670 
0R>STA/PAS:1 

CHANGE HW (L) ? Y 

♦ UNITS CD) ? 2 

UNIT 0 

CSR ADDRESS: (0) 160460 ? *Z 
UNIT 1 

CSR ADDRESS: (0) 160460 ? 160500 

INTERRUPT VECTOR ADDRESS: (0) 310 ? 320 

ACTIVE LINE BIT MAP: (Q) 177777 ? <CR> 

TYPE OF LOOPBACK (1-INTERNAL. 2-M3029 OR H3277. 3-H325 

4-MOOEM, 5-KEYBOARD ECHO): (0) 2 ? 1 

CHANGE SU (L) ? Y 

REPORT UNIT NUMBER AS EACH UNIT IS TESTED: (L) Y ? <CR> 
REPORT NUMBER OF BITS TESTED IN DMA ADDR TEST: (L) N ? <CR> 
EXTENDED ERROR REPORTING: (L) N ? <CR> 

TESTING UNIT : 0 

TESTING UNIT : 1 

CZOHX EOP 1 
0 TOTAL ERRS 

DR> 



e 



sEQ m 



1016 
1017 
1025 
1026 
1027 
1020 
1029 
1030 
19S1 
103^ 
1039 
1034 
1U35 
1036 
1037 
1036 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1046 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1056 
1059 
1060 
1061 
1076 
1079 



rST P4AT4 
UrCNT 



000000 



000000 



002000 



002000 



002000 
002000 
002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
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.LIST SEQ.LOC.BIN.riEB 
.rCIST CNO 



000001 
000001 
000001 
000001 
000001 



002000 



103 
132 
104 
110 
130 
000 
000 
000 

101 

060 

000000 



.SBTTL PROGRAH HEADER 



.MCALL SVC 
SVC 



IF STRUCTURED MACROS ARE TO BE USED. 
TO INITIALIZE THE STRUCTURED MACROS. 



8 INITIALIZE SUPERVISOR MACROS 



ADO ".MCALL STRUCT' AND "STRUCT' 



SVCINS- 1 J LIST INSTRUCTIONS. SHIFTED RICH"' 

SVCTST- 1 ; LIST TEST TAGS. SHIFTED RIGHT 

SVCSUB- 1 ; LIST SUBTEST TAGS, SHIFTED RIGHT 

SVCC8L- 1 s LIST GLOBAL TAGS. SHIFTED RIGHT 

SVCTAG- 1 I LIST OTHER TAGS. SHIFTED RIGHT 

; CHANGE THE VALUES OF THE SVC... SYMBOLS TO BE ZERO IF YOU WISH 

J TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS. CHANGE THE 

; SYMBOLS TO BE MINUS -ONE TO NOT LIST THE EXPANSIONS. YOU MAY 

CHANGE THE SYMBOLS AT ANY POINT IN YOUR PROGRAM, 



.ENABL ABS 
:.ENABL AMA 



2000 



BGNMOD 



THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



POINTER BGNRPT . BGNSU . BGNSF T . BGNDU , ERR TBL 



HEADER CZOHX.A.O.aOO.O.PRIO? 



LINAME: 



L <REV : : 
LIOEPO:: 
L»UNIT: J 
LlTXMLt: 



.ASCII 


/c/ 


.ASCII 


/z/ 


.ASCII 


/D/ 


.ASCII 


/H/ 


.ASCII 


/%/ 


.BYTE 


0 


.BYTE 


0 


.BYTE 


0 


.ASCII 


/A/ 


.ASCII 


/o 


.UORO 


0 



PROGh^ Ht AOtK 


PADT4 


002014 


000200 


002016 




002016 


056620 


002020 




002020 


03^136 


002022 




002022 


002150 


002024 




002024 


002162 


002026 




002026 


03 7526 


002050 




002030 


000000 


002052 




002052 


OOCOOO 


002034 




002034 


000000 


002036 




002036 


000000 


002040 




002040 


002124 


002042 




002042 


000340 


002044 




002044 


000000 


002046 




002046 


000000 


002050 




002050 


003 


002051 


003 


002052 




002052 


000000 


002054 


000000 


002056 




002056 


000000 


002060 




002060 


005364 


002062 




002062 


027560 


002064 




002064 


000000 


002066 




002066 


000000 


002070 




002070 


000000 


002072 




002072 


030430 


002074 




002074 


000000 


002076 




002076 


005374 


002100 




002100 


104035 


002102 




002102 


005314 


002104 




002 104 


027574 
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.MORO 


LtHPCP:: 






.WORD 


LtSPCP:: 






.M)RD 


L«HPTP:: 






.UORO 


LISPTP: : 






.UORO 


LtLAOP:: 






.UORD 


LtSTA: : 






.UORO 


L»CO:: 






.WORD 


L»DTYP: : 






.WORD 


LIAPT: : 






.UORO 


L»DTP: : 






.UORD 


LtPftlO:: 






' .UORD 


LIENVI:; 






'.UORO 


LIEXPl: 


• 




' .UORD 


LtMREV: 


s 




.BYTE 




.BYTE 


LIEF:: 






.UORO 




.UORD 


L»SPC:: 






.UORD 


L»OEVP: 


• 




' .UORD 


LIREPP: 


■ 




' .UORO 


LtEXP4: 


S 




.UORO 


LtEXPS: 


S 




.UORD 


LIAUT: t 






.UORD 


LtOUT: : 






.UORD 


LILUN:: 






.UORD 


LIDESP:: 




.UORD 


LILOAO: 






'emt 


LiETP:: 






.MRD 


LIXCP:: 






.WORD 



200 
L»HARD 

L«sorT 

L*HU 

LfSU 

LILAST 

0 

0 

0 

0 

LIDISPATCH 

PRI07 

0 

0 

CtREVlSION 
CtEDIT 

0 
0 

0 

l»dvttp 

LiRPT 
0 
0 
0 

LlOU 
0 

LIDESC 
E ILOAD 
LIERRTBL 
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002106 

002 1C6 030412 
002110 

002110 050410 
002112 

002112 027966 
002114 

002! 14 000000 
002116 

002116 000000 
002120 

002120 OOOCOO 

1080 



L«CCP: : 








.UORO 


LtCLEAN 


LIACP: ; 








.WORD 


L»AUTO 


LtPRT: : 








.WORD 


LIPROT 


LITEST: 








.WORD 


0 


L»OLT: : 








.WORD 


0 


L»MIME: 








* .UORO 


0 



1092 
1095 
10«M 
1095 
1096 
1097 
1098 
1099 



uoo 



0C2122 
002122 
002124 
00212* 
002126 
002130 
002132 
002134 
002136 
002140 
002142 
002144 
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.SCTTL OISPATCm T«Le 



THE DISPATCH TABLE CONTAIMS THE S ARTING ADDRESS QT EACH TEST. 
IT IS USED er THE SUPERVISOR TO DISPATCH TO EACH TEST. 



000011 

030546 
031030 
031272 
032224 
033710 
054324 
035002 
035770 
036536 



DISPATCH 9 



.WORD 9 
L IDISPATCH: j 

.WORD Tl 

.UORD T2 

.UORD TS 

.WORD T4 

.UORD TS 

.UORO T6 

.WORD T7 

.WORD TS 

.WORD T9 



DISPAfCH r«i 



1115 

111* 
111^ 

lllS 
Ul« 
1120 
1121 
1122 

lizi 

1124 
1125 
112* 



IE 
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b5 



.SBTTL OErAULT HARDWARE P TABLE 



J THE OerAULT HARDWARE P TABLE CONTAINS OEfAULT VALUES OT 

I TK TEST DEVICE PARAMETERS. THE STRUCTURE THIS TABLE 

J IS IDENTICAL TO The STRUCTURE OT THE HARDWARE P -TABLES. 

J AND IS USED AS A "TEHPLATE ' rOR BUILDING THE P TABLES, 

t - 



ll2r 

1126 
U29 
USO 
llSl 
11S2 
1155 



002146 

002146 000004 

002150 

002150 

002150 160460 
002152 OOOSIO 
002154 177777 
002156 002 

002160 
002160 



BGNHU DrPTBL 



LtHW: 
OrPTBL: : 



.WORD LIOOOO LIHW''? 



.WORD 
.WORD 
.UOftO 
.BYTE 
.EVEN 
ENOHU 



1^0460 
310 

177777 
2 



iDEfAULT CSR ADDRESS 
J DEFAULT VECTOR ADDRESS 
iDEFAU-T ACTIVE LINES BIT MAP 
t DEFAULT LOOPBACK MODE 



LIOOOO: 
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'f Ci 



114^ 
1145 
1144 
1145 
114« 
114T 
1148 
1144 
1150 
1151 
115^ 

1153 002160 
002160 
002162 
00216.' 

1 ' 54 

1155 002162 
ll5o 002164 
1157 

1150 002166 
002166 



.SBTTL SOriM«IE P TABLE 



r»C SOFTWARE TABLE CONTAINS VARIOUS DATA USED Bt THE 
PROGRAn AS OPERATIONAL PARATCTERS. THESE PARAMETERS ARE 
SET UP AT ASSEMBLE TIME AND MAT BE VARIED BY THE OPERATOR 
AT RUN TIME. 



000002 



000020 
000000 



BGNSU SrPTBL 



OPTION: 
NOERPT: 



LtSU: : 
5FPTBL! 



.WORD L 10001 I tSW/2 



.WORD 
.WORD 



20 
0 



ENDSW 



iBIT MAP or PROGRAM CONTROL Fl AGS 

lOEFAULT NUMBER OF INDIVIDUAL DATA ERRORS RP' 



LlOOOl: 



U5 
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1 t ^ T 
11©' 










1 1*>1I 




« JO • 1 L 


GLOBAL EQUATES SECTION 


1 Iwf 










1 1 

i I '"f 




















1 mi 














• *■ * 










t THF 


XOBAL EOOATES SECTION CONTAINS PR0G«'W EQUATES THAT 






% ARE 


USED IN MORE THAN 


ONE TEST. 






1 * ' 
















1 1 A7 






MunLNS*-30 


1NUH6ER OF LINES ON DHVll IS 6. 


1 1NA 

i i90 


1 77777 




MAPLNS-'l?/??"^ 


i3IT HAP OF LINES ON OHVll. 


1 1 AO 










1 14A 
i 






* DEVICE REGISTER 


OFFSETS FROM THE CSR- S ADDRESS •••••• 


1 1 41 


www 




CSRO--0 


jCSR REGISTER OFFSET FROM THE CSR ADDRESS 


1 149 


wwvc 




RBUF0--2 


jRECEIVE REGISTER OFFSET FROM THE CSR ADDRESS 


114S 






RXTIM0'-2 


iRECIEVE TIMER REGISTER OFFSET FROM THE CSR ADDRESS 


1 I'M 






LPR0"'4 


iLINE PARAMETER REGISTER OFFSET FROM THE CSR ADDRESS 


1144 






FSLS0--6 


jFIFOSIZE/STi^Tys REGISTER OFFSET FROM THE CSR ADDRESS 




000006 




F0AT0"-6 


iFIFQDATA REGISTER OFFSET FROM THE CSR ADDRESS 


1197 






LNCTR0--10 


J LINE CONTROL REGISTER OFFSET FROM THE CSR ADDRESS 




WW *c 




TXA010--I2 


J TRANSMIT ADDRESS I REGISTER OFFSET FROM THE CSR ADDRESS 








TXAD20'-I4 


J TRANSMIT ADDRESS 2 REGISTER OFFSET FROM THE CSR ADDRESS 




WW^W 




TXBFC0--16 


(TRANSMIT COUNT REGISTER OFFSET FROM THE CtR ADDRESS 


















• EQUATES USED WITH RESPECT TO THE RX BUTFER 


4CW9 


wwcv 




RXBETX--I6. 


iLEVEl OF RX BUFFER AT WHICH TO RE -ENABLE TRANSMISSION, 


1204 


000050 




RXBDTX«*24. 


iLEVEL OF RX BUFFER AT WHICH TO DISABLE TRANSMISSION. 


1205 


000100 




RXBFUL--64. 


J TOTAL CHARACTER CAPACITY QF THE RX BUFFER. 


1206 










1207 










1222 C02166 






EQUALS 





I 





( BIT 


OIF INI T IONS 


100000 


8IT15' 


>- 100000 


040000 


BIT14- 


- 40000 


020000 


BITIS- 


20000 


010000 


BIT12. 


lOOOO 


004000 


BITll- 


.. 4000 


002000 


BITIO- 


.. 2000 


001000 


8IT09- 


- 1000 


000400 


BITO0< 


.. 400 


000200 


BIT07. 


200 


COOlOO 


BIT06' 


■ 100 


000040 


BIT05- 


■- 40 


000020 


BIT04< 


.. 20 


000010 


BIT03" 


' 10 


000004 


BIT02< 


•* 4 


000002 


BITOI- 


2 


00000 I 


BITOO' 


>• 1 


OOlOOO 


BIT9-' 


• BIT09 


000400 


BIT8-< 


> BIT08 


00C200 


BIT?.. 


■ BIT07 


000100 


BIT6" 


> Bir06 



Ohci 1 1 
Gl ORA, 



KiNC TbT PARI* 
fUiAItS StCflON 

000040 
0000^0 
000010 
000004 
000002 
000001 



000040 
000057 
000056 
000055 
000054 



000540 
000500 
000240 
000200 
000140 
000 I 00 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
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E3 



'•£0 50 



BIT5-- 
BIT4" 
BITS'- 
BIT2" 
BIT!-. 
BITO-- 



BIT05 
BIT04 
BITOS 
BIT02 
BITOl 
BITOO 



EWENT TLAG OEflNITIONS 

EF52:EF17 RESFRVEO FOR SUPERVISOR TO PROGRAn COTtlUNICATION 



Er, START-- 32. 

EF.RESTART-- 31, 

EF. CONTINUE-- 30. 

EF.NEW-- 29. 

EF.PMR-- 28. 



{ PRIORITY LEVEL DEFINITIONS 

PRI07-- 540 
PRI06-- 500 
PRI05-- 240 
PRI04«- 200 
PRI05-- 140 
PRI02-- 100 
PRI01-- 40 
PRX00>- 0 



START COrtlANO UAS ISSUED 
RESTART COMMAND UAS ISSUED 
CONTINUE COMMAND UAS ISSUED 
A NEU PASS MAS BEEN STARTED 
A POUER-FAIL/POUER-UP OCCURRED 



•OPERATOR FLAG BITS 
I 

EVL' 
LOT" 



AOR-> 
IDU-- 
ISR-- 
UAM«> 
BOE-- 
PNT" 
PRI*- 
IXE-- 
IBE-- 
IER>- 
LOE" 
MOE-- 



4 

10 
20 
40 
100 
200 
400 
1000 
2000 
4000 
10000 
20000 
40000 
100000 



1^52 
1/55 
1254 
1255 
1256 
1257 
125» 
1259 
1240 
1241 
1242 
1245 
1244 
1245 
1246 
1247 
1248 
1249 
125C 
1251 
1252 
1255 
1254 
1255 
1256 
1257 
125S 
1259 
1260 
1261 
i?.62 
1265 
1264 
1265 
1266 
1267 
1?68 
1269 
1270 
1271 
1272 
1275 
1274 
1275 
1276 
1277 
1276 
1279 
1260 
1261 
1262 
1263 
1264 
1265 
1286 
1267 
1266 



002166 
002170 
002172 
002174 
002175 
002176 



002200 
002200 
002202 
002204 
002206 

002210 
002212 
002214 
002216 



002220 
002222 
002224 
002226 
002250 
002252 
002234 
002236 
002240 
002242 
002244 
002246 
002250 
002252 
002254 
002256 
002260 
002262 
002264 



000500 
000504 
000577 
000 
004 
000000 



160020 
16002^ 
160024 
160026 

160030 
160032 
160054 
160036 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
031463 
146314 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
000000 
000000 
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.SBTTL GLOBAL DATA SECTION 



THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE OSEO 
IN hORE THAN ONE TEST. 



UNIT VARIBLE AREA 



t 



RXVECA 
TXVECA 
ACTLNS 
LOPBCK 
BRLEVL 
UNITN: 



.WORD 300 jRX VECTOR ADDRESS. 

WORD 304 ,TX VECTOR ADDRESS. 

.WORD 577 ; ACTIVE LINE BIT MAP. 

.BYTE 0 jLOOPBACK MODE 

.BYTE 4 J INTERRUPT BUS REQUEST LEVEL 

.WORD 0 iUNIT WMBER. 



DEVICE REGISTER ADDRECS TABLE 



DRAORT : 
CSRA: : 

RXTMA:: RBUTA: : 
LPRA: : 

FDATA:: TSLSA: : 

LNCTRA 
TXAOIA 
TXA02A 
TXBFCA 



.WORD 160020 iDHU- 

.UORO 160022 tDHU- 

.UORO 160024 iOHU 

.WORD 160026 lOHU 
tANO 

.WORD 160030 iOHU 

.WORD 160032 iDHU 

.UORD 160034 :DHU 

.WORD 160036 iOHU 



11 CSR ADDRESS. 

11 RECIEVE BUI-'fER/ TIMER ADDRESS. 

11 LINE PARAMETER REGISTER ADDRESS. 

11 riFO SIZE/LINE STATUS REGISTER ADDRESS. 

FIFO DATA REGISTER ADDRESS. 

11 LINE CONTROL REGISTER ADDRESS. 

11 TRANSMIT BUFFER 1 REGISTER ADDRESS 

II TRANSMIT BUFFER 2 REGISTER ADDRESS 

11 TRANSMIT BUFFER COUNT REGISTER ADDRESS 



ASSORTED GLOBAL VARIABLES: 



CTRLCF 

OMTSTA 

FERROR 

FFREM: 

GMANWO 

IBM: : 

lESTAT 

LGRPIM 

LGRP2M 

PASCNT 

PMSFLG 

RXTOUT 

SAVPRI 

5AVTEN 

TP4FLG 

TP4VEC 

TSTNUM 

TXENBM 

TXINTF 



.WORD 


0 


.WORD 


0 


.WORD 


0 


.UORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


31463 


.WORD 


146314 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


1 


.WORD 


0 


.WORO 


0 



, STORAGE POR THE CONTROL -C FLAG. 

sSTO'G FOR DMA TEST ADDRESS fIN Pi\R FORM). 

: STORAGE FOR "AT LEAST ONE ERROR" INDICATOR. 

jSTO'G FOR ADR OF FIRST FREE WORD AFTfR THf DIAG t;C 

-.WORD FOR GMANXX CALL RETURN PARAMETERS. 

J INACTIVE TX/RX BITS MASK. 

J STORAGE FOR STATES OF THE OUT INT ENABLE BITS. 
,BIT MAP OF LINES IN LINE GROUP I. 
,BIT MAP OF LINES IN LINE GROUP II. 
jSTO'G FOR PASS COUNT USED IN ROM VERSION* TST. 
;FLAG INDICATING WHETHER TO PRINT MODEM STATUS, 
s TIME -OUT VALUE FOR WAITING FOR LAST PX CHAR. 
iSTO'G FOR PROCESSOR PRIORITY, (TXROFF. TXRON). 
jSTORAGE FOR TX. ENABLE STATES. (TXROFF. TXRON). 
;FLAGS SET WHEN AN EXPECTED 004 TRAP OCCURS. 
I STORAGE FOR THE NORMAL 004 TRAP VECTOR, 
t STORAGE FOR THE TEST NUMBER. 

I STORAGE FOR TX. ENABLE STATES. (BUFFER MCM NT>. 
i STORAGE FOR TRANSMIT INTERRUPT Ft ACS. 



b5 



1269 
1290 
1291 
1292 
I29i 
1294 
1295 
1296 
1297 
1296 
1299 
L500 
1301 
1S02 
1503 
1S04 
1305 
1306 
1507 
1306 
1509 
1510 
1511 
1512 
1515 
1514 
1315 
1516 
1317 
1518 
1519 
1520 
1521 
1522 
1525 
1524 
1525 
1526 
1527 
1328 
1529 
1550 
1551 
1552 
1555 
1354 
1355 
1556 
1557 
1558 
1559 
1540 
1541 
1542 
1343 
1344 
1345 



002266 000000 



002270 
002272 
002274 
002276 
002500 
002302 
002304 
002906 
002510 
002^12 



002514 
002516 
002 S20 
002522 

002524 
002524 
002526 
002550 
002552 
002554 
002356 
002540 
002542 
002544 

002544 
002544 
002546 
002550 
002552 
002554 
002556 
002560 
002362 
002364 



002564 
002566 
002570 
002372 
002374 
002576 
002400 
002402 



177546 
000300 
000100 
000074 
000000 
000000 
000170 
000170 
000021 
000062 



177572 
172516 
000000 
000000 



172340 
172342 
172544 
172346 
172350 
172552 
172354 
172556 



172500 
172502 
172504 
172506 
172510 
172512 
172514 
172516 



000001 
000002 
000004 
000010 
000020 
000040 
OOClOO 
000200 
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UOROl:: .UORO 0 



iLOCATION FOR PASSING INDIRECT PARAMETERS. 



LINE TIME CLOCK VARIABLES AND STORAGE. 



CLKCSR:: .WORD 177546 jCSR ADDRESS OF THE LTC. 

CLK8RL:: .UORO PRI06 iINTERRUPT PRIORITY LEVEL OF THE LTC. 

CLKVEC:: .WORD 100 ;INTERRUPT VECTOR ADDRESS OF THE LTC. 

CLKMRZ:: .WORD 60. {INTERRUPT FREQUENCY OF THE LTC. 

TIMERl:: .WORD 0 -.HARDUARE CLOCK COUNTER •! . 

TIMER2:: .UORD 0 > HARDWARE CLOCK COUNTER •2. 

TIMERS:: .UQRD 120. ; HARDWARE BREAK COUNTER LOCATION. 

8C0UNT:: .WORD 120. jBREAK COUNT VALUE IN CLOCK TICKS. 

MSTICK:: .WORD 17. jNUMBER OF MILLI SECONDS PER LTC TICK. 

MSLCNT:: .WORD 62 jLOOP COUNT (USED BY MSLOOP) TO DELAY I MS. 



MEMMORV MANAGEMENT VARIABLES AND FLAGS. 



PARAT6: 



PARATE : 
PORATB: 



PDRATE; 



MMSRO: : 


.WORD 


177572 


MMSR3: : 


.WORD 


172516 


MMPRES; : 


.WORD 


0 


MMENA6: : 


.WORD 


0 


PAROA: : 


.WORD 


172340 


PARIA: : 


.WORD 


172342 


PAR2A: : 


.WORD 


172344 


PAR3A: : 


.WORD 


1 72346 


PAR4A: : 


.WORD 


172550 


PARSA: : 


.WORD 


172352 


PAR6A: : 


.WORD 


172354 


PAR7A:; 


.WORD 


172356 


PDROA: : 


.WORD 


172300 


PORIA: : 


.WORD 


172302 


PDR2A: : 


.WORD 


172304 


PDR5A: : 


.WORD 


172306 


PDR4A: : 


.WORD 


172310 


P0R5A: : 


.WORD 


172312 


P0R6A: : 


.WORD 


172314 


PDR7A: : 


.WORD 


172516 



I ADDRESS OF MEM MGT STATUS REGISTER 00. 
J ADDRESS OF MEM MGT STATUS REGISTER 9i 
:MEM MGT PRESENT FLAG CO IF MM NOT PRESENT). 
-.MEM MGT ENABLED FLAG (0 IF MM NOT ENABLED). 

jBASE OF MEM MGT PAR ADDRESS TABLE. 

; ADDRESS OF MEM MGT PAR 90. 

! ADDRESS OF MEM MGT PAR *l. 

: ADDRESS OF MEM MGT PAR #2. 

J ADDRESS OF MEM MGT PAR 9l. 

(ADDRESS OF MEM MGT PAR «4. 

J ADDRESS OF MEM MGT PAR 95. 

{ADDRESS OF MEM MGT PAR *6. 

s ADDRESS OF MEM MGT PAR 97. 

jENO OF PAR ADDRESS TABLE. 

jBASE OF MEM MGT PDR ADDRESS TABLE. 
5 ADDRESS OF MEM MGT PDR »0. 
I ADDRESS OF MEM MGT PDR 91. 
s ADDRESS OF MEM MGT PDR 92. 
{ADDRESS OF MEM MGT PDR *5. 
{ADDRESS OF MEM MGT PDR *4. 
{ADDRESS OF MEM MGT PDR 95. 
{ADDRESS OF MEM MGT PDR 96. 
{ADDRESS OF MEM MGT PDR 97. 
{END OF MEM MGT PDR ADDRESS TABLE. 



t 

BITTBLi 



TABLE OF WORDS WITH CORRESPONDING BIT SET FOR GENERATION OF BIT HAPS. 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



I 

2 

4 

10 

20 

40 

100 

200 



iBIT 
{BIT 
{BIT 
{BIT 
»BIT 
;BIT 
iBIT 
iBTT 



SET. 
SET. 
SET. 
SET. 
SET. 
SET. 
SET. 
SET. 



rl5 



TION 
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1546 
1547 
1540 
1549 

1S50 
1551 
1552 
1555 
1554 
1555 
1556 
1557 
1556 
t559 
1560 
1561 
1562 
1565 
1564 
1565 
1566 
1567 
1566 
1569 
1570 
1571 
1572 
1575 
1574 
1575 
1576 
1577 
1578 
1579 
1560 
1561 
1562 
1565 
1564 
1565 
1566 
1587 
1566 
1569 
1590 
1591 
1592 
1595 
1594 
1595 
1596 
1597 
1598 
1599 
1400 
1401 
1402 



002404 
002406 
002410 
002412 
002414 
0C2416 
002420 
002422 



002424 
002424 
002426 
002450 
002452 
002454 
002456 
002440 
002442 
002444 
002446 
002450 
002452 
002454 
002456 
0O2460 
002462 
002464 



002464 
002464 
002466 
002470 
002472 
002474 



002476 
002500 
002502 
002504 
002506 



002510 
002512 
002712 



000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



000062 
000115 
000156 
000206 
000226 
000454 
001150 
002260 
005410 
005720 
004540 
011500 
016040 
022600 
045400 
115000 



000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 



000000 



.UORO 
.WORD 
.UORD 
.UORD 

.UORD 
.UORO 
.UORD 



400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 



»BIT 8 SET. 
jBIT 9 SET. 

10 SET. 

11 SET. 

12 SET. 
15 SET. 

14 SET. 

15 SET, 



iBIT 
iBIT 
iBIT 
jBIT 
sBIT 
iBIT 



TABLE OF OUT BAUDRATES 



BRTBte: 



8RT8LE: 







iSASE 


or OUT BAUD RATE TABLE. 


.WORD 


50. 


iBAUD 


RATE 


ENTRY 


FOR CODE 0. 


.UORD 


75. 


iBAUO 


RATE 


ENTRY 


FOR CODE I. 


.UORO 


110. 


iBAUD 


RATE 


ENTRY 


FOR CODE 2, 


.UORD 


134. 


iBAUD 


RATE 


ENTRY 


FOR CODE 5. 


.UC^D 


150. 


iBAUD 


RATE 


ENTRY 


FOR CODE 4. 


.UORD 


300. 


iBAUD 


RATE 


ENTRY 


FOR CODE 5. 


.UORD 


600. 


iBAUD 


RATE 


ENTRY 


FOR CODE 6. 


.UORO 


1200. 


iBAUD 


RATE 


ENTRY 


FOR CODE 7. 


.UORO 


1600. 


iBAUD 


RATE 


ENTRY 


FOR CODE 8. 


.UORD 


2000. 


iBAUD 


RATE 


ENTRY 


FOR CODE 9. 


.UORO 


2400. 


iBAUD 


RATE 


ENTRY 


FOR CODE 10. 


.UORD 


4600. 


iBAUD 


RATE 


ENTRY 


FOR CODE 11. 


.UORD 


7200. 


iBAUD 


RATE 


ENTRY 


FOR CODE 12. 


.UORD 


9600. 


iBAUD 


RATE 


ENTRY 


FOR CODE 15. 


.UORD 


19200. 


iBAUD 


RATE 


ENTRY 


FOR CODE 14. 


.UORD 


56400. 


iBAUD 


RATE 


ENTRY 


FOR CODE 15. 






i LABEL AFTER END 


OF OUT BAUORATE TABLE. 



GPR SAVE AREAS ZERO AND ONE. 



CPRSOe : 



.UORD 
.UORD 
.UORD 
.WORD 
.WORD 



0 
0 
0 
0 
0 



I BASE OF GPR SAVE AREA NUMBER ZERO 

{UORD 1. STORAGE FOR Rl. 

iUORD 2. STORAGE FOR R2. 

I UORO 3. STORAGE FOR R3. 

tUORD 4, STORAGE FOR R4. 

tUORO 5. STORAGE FOR R5. 



J* 

CHRTOTi 
ERSMRF ! 
TXDONF: 
RXDONF: 
TXDBLF! 



TRAN^ISSION AND RECEPTION VARIABLES. POINTERS. AND FLAGS. 



.UORO 
.UORO 
.UORD 
.UORD 
.UORD 



0 
0 
0 
0 
0 



J TOTAL RECEIVED CHARACTER COUNTER. 

I "PRINT ERROR SUMMARY' FLAGS. 

I TRANSMISSION DONE FLAGS. 

iRECEPTION DONE FLAGS. 

i"TX HAS BEEN DISABLED" FLAG. 



STORAGE AREA FOR THE BMP CODE QUEUE. 



BMPCQP 
BMPCQ6 
BMPCQE 



.UORO 0 {POINTER USED TO ACCESS THE NEXT CELL IN QUE. 

.BLKU 64. I STORAGE FOR 32 CELLS. TEST* PLUS BMP CODE. 

(LAST ADDRESS PLUS 2 OF THE BMP CODE OUECC. 



002712 000000 



RXBOPT: 



RECEIVE BUFFER AND ASSOCIATED VARIABLES. 
: .WORD 0 tRX BUFFER OUTPUT POINTER. 
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GLOBAL DATA SECTION 



140S 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1446 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 



002714 
002716 
002720 
002720 
003120 



003122 
003122 
003124 
003126 
003150 
003132 
003134 
003136 
003140 



003142 
003202 
003242 
003302 
003342 
003402 
003442 
003502 
003542 



003602 
003602 
004202 
004402 
004602 
004602 



004642 
004642 
004652 
004f>62 
004672 
004702 
004712 
004722 
004732 
004742 
004752 
004762 
004772 
005002 
005012 
005022 



000000 
000000 



000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



RXBIPT:: .UORD 0 

RXBCNT:: .MORD 0 
RXBSTA:: 

.6LKU RX^UL 

RxBEND:: .WORD 0 



jRX BUFFER INPUT POINTER. 
.-COUNT OF NUMBER OF CHARS IN RX BUFFER. 
tLABEL AT BEGINNING OF THE RX BUFFER. 
tLE^VE ENOUGH ROOM FOR A FULL BUFFER. 
iLABEc AFTER END OF Rx BUFFER. 



TX/RX CONTROL BLOCK. 



CBB:: jBASE OF TX/RX CONTROL BLOCK. 

CBLPRA:: .UQRD 0 :LINE PARAMETER REGISTER CONTENTS. 

CBLNCA:: .WORD 0 iLlNE CONTROL REGISTER CONTENTS. 

CBDPAA:: .WORD 0 {START ADDRESS OF DATA PATTERN. 

CBDPLA:: .UORO 0 jLENGTH OF DATA PATTERN. 

CBOPNA:: .WORD 0 sNUMBER OF REPEAT TRANSMISSIONS OF THE DATA PATTERN. 

CBMAPA:: .WORD 0 jBIT MAP OF LINES TO INITIALISE. 

CBLP8A:: .WORD 0 jLOOPBACK MODE (AS IN LOPBCK). 

CBQFSA:: .WORD 0 jAMOUNT OF OFFSET BETUEEN EACH TX START, 

i* TRANSMISSION AND RECEPTION TABLES OF POINTERS AND COUNTERS. 



DPENOB:; 
OPLENB: ; 
EXCNTB:: 
ERCNT8:; 
TXPTR8:; 
RXPTR8 : : 
CHCNTB: ; 
TXCNTB: ; 
RXCNTB: 



.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 



16. 
16. 
16. 
16. 
16. 
16. 
16. 
16. 
16. 



J TABLE OF END ADDRESSES Of DATA PATTERNS. 
STABLE OF LENGTH OF DATA PATTERNS FOR LINES. 
{EXTRA RECEIVED CHARACTER COUNTERS TABLE. 
(CHARACTER RECEIVE ERROR COUNTERS TABLE. 
{TRANSMISSION DATA POINTERS TABLE. 
(RECEPTION DATA POINTERS TABLE. 
(NUMBER OF CHARACTERS TO BE TXEO AND RXED. 
(TRANSMISSION CHARACTER COUNTERS TABLE. 
(RECEPTION CHARACTER COUNTERS TABLE. 



GENERAL TABLE AND BUFFER AREA- -513 WORDS. 



BUFBAS: 

ERLTBL:; 

BUFMID: i 

BUF3QT:: 

BUFENDs 

ENOETB: 







(BASE OF MEMORY BUFFER. 


.BLKU 


128. 


(FIRST HALF OF GENERAL TABLE OR BUFFER. 


.BLKU 


64. 


(SECOND HALF OF GENERAL TABLE OR BUFFER. 


.BLKU 


64. 


(LAST QUARTER OF THE BUFFER AREA. 
(END OF GENERAL PURPOSE MEMORY BUFFER. 


.BLKU 


16. 


(BUFFER OVERFLOU SPACE. 



TABLE OF DATA PATTERN RESYNC QUEUES. 



DPRSQB: 



.BLKU 


4 


.BLKU 


4 


.BLKU 


4 


.BLKU 


4 


.BLKU 


4 


.BLKU 


4 


.BLKU 


4 


.BLKU 


4 


.BLKU 


4 


.BLKU 


4 


.BLKU 


4 


.BLKU 


4 


.BLKU 


4 


.BLKU 


4 


.BLKU 


4 



(DATA PATTERN RESYNC QUEUES TABLE BASE. 
(DATA PATTERN RESYNC QUEUE FOR LINE 0. 
(DATA PATTERN RESYNC QUEUE FOR LINE 
(DATA PATTERN RESYNC QUEUE FOR LINE 
(DATA PATTERN RESYNC QUEUE FOR LINE 
(DATA PATTERN RESYNC QUEUE FOR LINE 4. 
(DATA PATTERN RESYNC QUEUE FOR LINE 5. 
(DATA PATTERN RESYNC QUEUE FOR LINE 
(DATA PATTERN RESYNC QUEUE FOR LINE 
(DATA PATTERN RESYNC QUEUE FOR LINE 
(DATA PATTERN RESYNC QUEUE FOR LINE 
(DATA PATTERN RESYNC QUEUE FOR LINE 
(DATA PATTERN RESYNC QUEUE FOR LINE 
(DATA PATTERN RESYNC QUEUE FOR LINE 
(DATA PATTERN RESYNC QUEUE FOR LINE 
(DATA PATTERN RESYNC QUEUE FOR LINE 



1. 
2. 
3. 



6. 

7. 

8. 

9. 

10. 

11. 

12. 

15. 

14. 



J5 



1460 


005052 




1461 


005042 




146^ 






1463 






1464 






1465 


005042 




1466 


005042 


000000 


1467 


005044 


000010 


1468 


005046 


000020 


1469 


005050 


000030 


14 70 005052 




1471 


005052 




1472 


005052 


000000 


1475 


005054 


075400 


1474 


005056 


177400 


1475 


005060 




14 76 


005060 




1477 


005060 


000000 


14 78 


005062 


000200 


1479 


005064 




1480 


005064 




1461 


005064 


000000 


1482 


005066 


000040 


1485 


005070 


000140 


1484 


005072 




1465 






14 B6 






i*o / 












1469 








OOD072 




1 A A1 

1491 


005072 


1564 70 


i'»9e 




167070 






1774 70 


1494 


005100 




1495 






1496 






1497 






1498 


005100 




1499 


005100 


170070 


1500 


005102 


007470 


1501 


005104 


000001 


1502 


005106 


000120 


1505 


005110 


070470 


1504 


005112 


015470 


1505 


005114 


000001 


1506 


005116 


000016 


1507 


005120 


115070 


1508 


005122 


124470 


1509 005124 


000001 


1510 


005126 


000002 


1511 


005150 




1512 






1515 






1514 






1515 


005150 


000 


1516 


00S15L 


001 
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OPRSOE: 



.BLKU 



-.DATA PATTERN RE SYNC QUEUE fOR LINE 15. 
tENO nr DATA PATTERN RESYNC QUEUES TABLE 



SINGLE CHARACTER «(M)E LPR TIELO TABLES. 



SCBCTB: 



SCBCTE : 
SCBRT6: 



SCBRTE: 
SCNSTB: 



SCNSTEj 
OCTPTB: 



SCTPTE: 



.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 



.UORD 
.WORD 



.WORD 
.WORD 
.WORD 



0 
10 
20 
30 



0 

73400 
177400 



0 

200 



O 

40 

140 



(BASE OF NUMBER OF BITS PER CHAR FIELDS TABLE. 

1 5 BITS/CHAR LPR FIELD. 

16 BITS/CHAR LPR FIELD. 
-.7 aiTS/CMAR LPR FIELD. 
1 8 BITS/CMAR LPR FIELD. 

;END OF N(.f«ER OF BITS/CHAR FIELDS TABLE. 
:BASE OF BAUDRATE FIELDS TABLE. 

t50 BAUD LPR FIELDS. 

tl.2K BAUD LPR FIELDS. 

t 53,4k BAUD LPR FIELDS. 
sENO OF BAUDRATE FIELDS TABLE. 
iBASE OF NUMBER OF STOP BITS FIELDS TABLE. 

ll STOP BIT LPR FIELD. 

J 2 STOP BITS LPR FIELD. 
(END OF BAUDRATE FIELDS TABLE. 
;BASE OF TYPE OF PARITY FIELDS TABLE. 

iNO PARITY LPR FIELD. 

-.ODD PARITY LPR FIELD. 

SEVEN PARITY LPR FIELD. 
(END OF TYPE OF PARITY FIELDS TABLE. 



DMA MODE LPR FIELD TABLES, 
SET UP WITH SPECIFIED BAUDRATES. 



I STOP BIT. ODD PARITY. 6 BITS/CMAR. 



OLPRTB: 



OLPRTE: 



.WORD 
.WORD 
.WORD 



1564 70 
167070 
177470 



jBASE OF DMA TEST LPR FIELDS TABLE. 
t9.6K BAUD. 
I19.2K BAUD. 
;58.4K BAUD. 

sENO OF DMA TEST LPR FIELDS TABLE. 



SPLIT SPEED LPR PARAMETER TABLE. 



SPLPRBi 



SPLPRE: 
t *****< 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



170070 

7470 

1 

80. 
70470 
15470 
1 

16 

115070 
124470 
1 
2 



{BASE OF SPLIT SPEED LPR TABLE. 
iTX: 38. 4K. RX: 50 BAUD. 1 STOP 000 PAR 8 BITS. 
jTX: 50. RX: 58. 4K BAUD. 1 STOP 000 PAR 8 BITS. 
jNUMBER OF REPEAT TRANSMISSIONS AT 50 BAUD. 
sNUMBER OF REPEAT TRANSMISSIONS AT 56. 4K BAUD. 
;TX: 1200. RX : 75 BAUD. 1 STOP ODD PAR 6 BITS. 
sTX: 75. RX: 1200 BAUO. I STOP ODD PAR 8 BITS. 
iNUMBER OF REPEAT TRANSMISSIONS AT 75 BAUD. 
(NUMBER OF REPEAT TRANSMISSIONS AT 1200 BAUD. 
{TX: 2000. RX:2400 BAUO. 1 STOP OOD PAR 8 BITS. 
jTX: 2400. RX:2000 BAUO, I STOP ODD PAR 8 BITS. 
(NUMBER OF REPEAT TRANSMISSIONS AT 2400 BAUD. 
, NUMBER OF REPEAT TRANSMISSIONS AT . r<on BA(.0. 
lENO OF SPLIT SPEED LPR TABLE. 



SINGLE CHARACTER DATA PATTERN TABLE. 



SDP8AS::.BYTE 0 
.BYTE 1 



, START OF SINGLE CHARACTER DATA PATTERN T ABl f 



QHU 11 rjNC TSI P>W»T4 MACRO H1200 15 fWW W 09:48 PAGE 2S 5 
ClOBAL DATA SECTION 





k ^£ 






• BYTE 


10 






005155 


017 




iSTTE 


17 






005154 


063 




.BrTE 


65 




1520 


005155 


074 




.BYTE 


74 




1521 




125 




• BYTE 


125 




1522 


O05157 


177 




-BYTE 


177 




152S 


005140 


200 




.BYTE 


200 




1524 


005141 


252 




.BYTE 


252 




1525 


005142 


303 




.BYTE 


303 






005143 


314 




.BfTE 


314 




1527 








.BYTE 


360 




152 A 


005145 


36/ 




.BYTE 


367 




1529 


005146 


376 




.BYTE 


376 




1550 


005147 


377 




.BYTE 


377 




1551 


005150 




SOPENO: 






;ENO OF SINGLE CHARACTER DATA PATTERN TABLE. 


1552 


005150 


000 




* .BYTE 


0 


i START or FIRST SHORT DATA PATTERN OVERFLOU AREA. 


1555 


005151 


001 




.BYTE 


1 




1534 


005152 


010 




.BYTE 


10 




1555 


005155 


017 




.BYTE 


17 




1536 














1557 














1538 








SINGLE 


CHARACTER 


DATA PATTERN TABLE NUr«ER TUO. 


1559 














1540 


005154 


125 


S0P2B: : 


.BYTE 


125 


{START OF SECOND SHORT DATA PATTERN. 


1541 


005155 


252 




.BYTE 


252 




1542 


005156 


124 




.BYTE 


124 




1545 


005157 


253 




.BYTE 


253 




1544 


005160 


122 




.BYTE 


122 




1545 


005161 


255 




.BYTE 


255 




1546 


005162 


112 




.BYTE 


112 




154; 


005165 


265 




.BYTE 


265 




1548 


005164 


052 




• BYTE 


52 




1549 


005165 


325 




.BYTE 


525 




1550 


005166 


152 




.BYTE 


152 




1551 


005167 


225 




.BYTE 


225 




1552 


005170 


152 




.BYTE 


152 




1553 


005171 


245 




.BYTE 


245 




1554 


005172 


126 




.BYTE 


126 




1555 


005175 


251 




.BYTE 


251 




1556 


005174 




S0P2E: : 






{END OF SECOND SHORT DATA PATTERN. 


1557 


005174 


125 




• BYTE 


125 


{START OF SECOND SHORT DATA PATTERN OVERFLOU AREA. 


1558 


005175 


252 




.BYTE 


252 




1559 


005176 


124 




.BYTE 


124 




1560 


005177 


255 




.BYTE 


253 




1561 


005200 


122 




.BYTE 


122 




1562 


OOS201 


255 




.BYTE 


255 




1563 


005202 


112 




.BYTE 


112 




1564 


00S203 


265 




• BYTE 


265 




1565 


005204 


052 




.BYTE 


52 




1566 


005205 


525 




•Byte 


325 




1567 


005206 


152 




.BYTE 


152 




1568 


005207 


225 




.BYTE 


225 




1569 


005210 


152 




.BYTE 


132 




1570 


005211 


245 




.BYTE 


245 




1571 


005212 


126 




.BYTE 


126 




1572 


005215 


251 




.BYTE 


251 




1575 















CTION 
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^CO S7 



1574 
1575 

15 7«, 

i:»77 

1576 
1579 
1500 
1581 
1562 
15«3 
1564 
1565 
1566 
1567 
1566 
1569 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1596 
1599 
1600 
1601 
1602 
1605 
1604 
1605 
1606 
1607 
1606 
1609 
1610 
1611 
1612 
161S 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
L621 
1622 
162S 
1624 
1625 
1626 
1627 
1628 
1629 

16 SO 



SINGLE CHARACTER SAFE PROPORTIONAL OELAr TABLE. 



005214 
005215 
005216 
005217 
005220 
005221 
005222 
005223 
005224 
005225 
005226 
005227 
005230 
005231 
005232 
005233 



005234 
005234 
005236 
005240 
005242 
005244 
005246 
005250 
005252 
005254 
005256 
005260 
005262 
005264 
005266 
005270 
005272 
005274 



005274 
005274 
005275 
005276 
005277 
005300 



372 
252 
167 
145 
132 
062 
036 
024 
021 
020 
017 
015 
014 
014 
013 
012 



000000 
000002 
000004 
000006 
000010 
000012 
000014 
000016 
000020 
000022 
000024 
000026 
000030 
000032 
000034 
000036 



004 
006 
000 
002 
014 



PROTBL: : .BYTE 


250. 


:OELAY 


IN MILL I 


SECONDS 


AT 


50 BAUD 


.BYTE 


170. 


jOELAY 


IN MILL I 


SECONDS 


AT 


75 BAUD 


.BYTE 


119. 


;DELAY 


IN MILL I 


SECONDS 


AT 


110 BAUD 


.BYTE 


99. 


J DELAY 


IN MILLI 


SECONDS 


AT 


134 5 BAUD 


.BYTE 


90. 


J DELAY 


IN MILLI 


SECONDS 


AT 


150 BAUD 


.BYTE 


50. 


i DELAY 


IN MILLI 


SECONDS 


AT 


300 BAUD 


.BYTE 


30. 


{DELAY 


IN MILLI 


SECONDS 


AT 


600 BAUD 


.BYTE 


20. 


; DELAY 


IN MILLI 


SECONDS 


AT 


1200 BAUD 


• BYTE 


17. 


: DELAY 


IN MILLI 


SECONDS 


AT 


1600 BAUD 


.BYTE 


16. 


:OELAY 


IN MILLI 


SECONDS 


AT 


2000 BAUD 


.BYTE 


15. 


iDELAY 


IN MILLI 


SECONDS 


AT 


2400 BAUD 


.BYTE 


13. 


1 DELAY 


IN MILLI 


SECONDS 


AT 


4800 BAUD 


.BYTE 


12. 


1 DELAY 


IN MILLI 


SECONDS 


AT 


7200 BAUD 


.BYTE 


12. 


1 DELAY 


IN MILLI 


SECONDS 


AT 


9600 BAUD 


.BYTE 


11. 


{DELAY 


IN MILLI 


SECONDS 


AT 


19200 BAUD 


.BYTE 


10. 


{DELAY 


IN MILLI 


SECONDS 


AT 


38400 BAUD 


.EVEN 















{* TABLE FOR STORAGE OF RX/TX LINE NUMBER ASSOCIATIONS. 

I* THE ASSOCIATIONS ARE STORED AS LINE NUMBER TIMES 2 FQR USE AS OFFSETS 
(* UHEN ACCESSING A TABLE OF WORDS. 

{* NOTE: DO NOT URITE A NON-ZERO VALUE INTO THE UPPER BYTE OF ANY ENTRr. 



TXRXLB: 



{BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 



TXRXLE: 



.UORD 


0 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


0. 


.WORD 


2. 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


1. 


.MORD 


4. 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


I INE 


2. 


.WORD 


6. 


(TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


3. 


.UORD 


8. 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


4. 


.WORD 


10. 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


5. 


.WORD 


12. 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


6. 


.WORD 


14. 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


7. 


.WORD 


16. 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


8. 


.WORD 


18. 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


9. 


.WORD 


20. 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


10. 


.WORD 


22. 


: TX/RX LINE 


OFFSET 


FOR RX/TX 


LINE 


11. 


.UORD 


24. 


: TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


12. 


.WORD 


26. 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


13. 


.WORD 


28. 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


14. 


.UORD 


30. 


{TX/RX LINE 


OFFSET 


FOR 


RX/TX 


LINE 


15. 






{END OF TX/RX LINE 


NUMBER ASSOCIATION 


.EVEN 




{GUARANTEE 


THAT NEXT TABLE IS ON UORD 



{* TABLE OF TX/RX LINE NUMBER ASSOCIATIONS IN STAGGERED LOOPBACK. 

{* THE ASSOCIATIONS ARE STORED AS LINE NUMBER TIMES 2 FOR USE AS OFFSETS 

:* UHEN ACCESSING A TABLE OF UORDS. 

{* THIS IS A TABLE OF DATA FOR READING ONLY. USE TO LOAD THE ABOVE TABLE. 
{* NOTE: MUST CONVERT FROM BYTES TO UOROS UHEN LOADING ABOVE TABLE. 



STGTRB:: 



.BYTE 4. 

.BYTE 6. 

.BYTE 0 

.BYTE 2. 

.BYTE 12. 



{BASE OF STAGGERED TX/RX LINE NUMBER TABLE. 
{TX/RX LINE OFFSET FOR RX/TX LINE 0. 
{TX/RX LINE OFFSET FQR RX/TX LINE I. 
{TX/RX LINE OFFSET FOR RX/TX LINE 2. 
I TX/RX LINE OFFSET FOR RX/TX LINE 3. 
{TX/RX LINE OFFSET FOR RX/TX LINE 4. 
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1651 

1652 

1655 

1634 

1655 

1636 

1637 

1636 

1659 

1640 

1641 

1642 

1655 



1656 
1657 



005301 
005302 
005303 
005304 
005305 
005306 
005307 
005310 
005311 
005312 
005313 

005314 
005314 
005314 
005316 
005320 
005322 



016 
010 
012 
024 
026 
020 
022 
034 
036 
030 
032 



000000 
000000 
000000 
000000 



ERRTYP 
ERRNBR 
ERRHSG 
ERRBLK 



.BYTE 
.BYTE 
.BYTE 
• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.EVEN 
ERRTBL 



14. 

8. 

10. 

20. 

22. 

16. 

18. 

28. 

30. 

24. 

26. 



.WORD 
.UORO 
.UORO 
.WORD 



.EVEN 



0 
0 
0 
0 



:TX/RX LINE OFFSET FOR RX/TX LINE 5 
jTX/HX LINE OFFSET FOR RX/TX LINE 6* 
;TX/RX LINE OFFSET FQR RX/TX LINE 7 
sTX/RX LINE OFFSET FQR RX/TX LINE 8 
,TX/RX LINE OFFSET FQR Rx/TX LINE 9 
!TX/RX LINE OFFSET FQR RX/TX LINE 10 
iTX/RX LINE OFFSET FQR RX/TX LINE 11 
»TX/RX LINE OFFSET FQR Rx/TX LINE 12 
TX/RX LINE OFFSET FQR Rx/Tx LINE IS 
TX/RX LINE OFFSET FOR RX/TX LINE 14 
TX/RX LINE OFFSET FQR RX/TX LINE 15 
GUARANTEE THAT NEXT TABLE IS ON WORD BOUNOARr 

LtERRTBL: : 



16W 


. be 


1660 




1661 


i* 


1662 




1669 




1664 


: • 


1665 


; • 


1666 


i* 


1667 


t* 


1660 




1669 


s* 


1670 


i * 


1671 


«* 


1672 


• * 


1675 


• * 


1674 


!• 


1675 


!* 


1676 


• • 


1677 




1678 


t* 


1679 


;* 


1680 


1* 


1661 


t • 


1602 


J* 


1603 


J* 


1604 


J* 


4 ^ ii 

1605 


i ♦ 


1666 


»* 


1667 


J* 


1666 




1669 


;* 


1690 


!* 




t * 


1692 


1* 


169S 


;* 


1694 


5* 


1695 


s • 
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LS. 

S0TTL GPR HMHOLIMG ROUTINES fOR SUBROUTINE CALLS. 



TtCRE ARE 4 ROUTIICS AND MACRO OEriNITIONS USED TOR THE HANDLING OF 
GPR VALUES DURING SUBROUTINE CALLS WITHIN THIS PROGRAM. THE fOUR 
ROUTINES/nACRO CALLS HAVE THE rXLOUING NAMES: 



SAVE 



TO 



MACRO DEFINITION USED AT THE BEGINNING OF A SUBROUTINE 
SAVE THE GPR CONTENTS FOR LATER RESTORATION. 
PASS - MACRO DEFINITION USED AT THE END OF A SUBROUTINE TO RESTORE 
THE PREVIOUSLY SAVED GPR CONTENTS AND TO LEAVE THE CONTENTS 
OF THE SPECIFIED GPRCS) INTACT CNOT RESTORED). 
PREG05 SUmOUTINE WHICH IS CALLED FROM THE SAVE AND PASS MACRO 

EXPANSIONS WHICH ACTUALLY PERFORMS THE ACTIONS ON THE GPRS. 

DURING A SUBROUTINE WHICH USES THESE GPR SAVE ROUTINES THE VALUES 
OF THE GPRS ARE STORED ON THE STACK IN THE FOLLOWING STACK FRAME: 

SP -> RET PC INTO PREG05 ROUTINE. 

SP»2 -> GPR RO CONTENTS. 

SP*4 -> GPR Rl CONTENTS. 

SP*6 -> GPR R2 CONTENTS. 

SP»8 -> C^R R3 CONTENTS. 

SP»10 -> GPR R4 CONTENTS. 

SP»12 -> GPR R5 CONTENTS. 

SP»14 -> RET PC INTO CALLER OF SUB' TNE WHICH CALLED PREG05. 

EACH LEVEL OF SUB' TNE CALLING USES 8 WORDS OF STACK OVERHEAD. 
THE SAVE AND PASS MACROS CAN ALSO BE USED IN "STRAIGHT LINE CODE" 
TO SAVE AND RESTORE THE GPR VALUES. IN ANY CASE. AFTER THE 
ISSUING OF A PASS CALL THE GPRS WILL BE RESTORED TO THE VALUES 
THEY HAD PRIOR TO THE LAST SAVE CALL CEXCEPT FOR THE EXCEPTED. 
OR PASSED INTACT. GPRS SPECIFIED AS PARAMETERS TO THE PASS CALL) 
AND THE SP WILL ALSO BE RESTORED TO ITS CONDITION BEFORE THE LAST 
SAVE CALL. THE PROGRAMMER MUST BE SURE THAT THE SP HAS THE SAME 
VALUE WHEN THE PASS MACRO IS CALLED AS IT HAD IMMEDIATELY AFTER 
THE SAVE MACRO WAS CALLED. 



1697 
1640 

1700 
1701 
1702 
170S 
1T04 
1705 
1706 
1707 
1700 

ro^ 

1710 
1711 



0000S6 
000016 
000014 
000012 
000010 
000006 
000004 
000002 



.SBTTL GPP FRAME ACCESS EQUATES 
I • • • 

lEOUATES THAT ALLOW ACCESS TO THE STACK FRAME Th*«;F APT Tmk 
.OTTSETS INTO STACK F0« RECISTMsSAV^S^ORliS^fSE^cSI 
t 



LPCSLT'. 
PC SLOT-. 
R5SL0T.- 
R4SL0T.- 
RSSLQT.. 
B2SL0T" 
RISLOT-. 
ROSLOT • - 



36 I OFFSET FOR LAST RETURN PC, 

16 lOFFSET FOR RETURN PC. 

14 lOFFSET FOR R5. 

12 lOFFSET FOR R4. 

10 jOFFSET FOR R5. 

t> lOFFSET FOR Ra. 

4 lOFFSET FOR HI. 

2 lOFFSET FOR RO. 



L4 



1 15 


. bo 


1 ' 1} 




t 1*1 
1 • 1 7 


2 • 


1 7ti^ 
1 ' lO 


Z • 


I ' i ' 


• • 


1 IS 


i • 


1 71 0 
i / if 


• • 


t 73n 

1 ' <C V 


a A 




• A 1 


1 795 


i • 


172S 


t • 


1 ' 


s • 


i ' ti^ 




1 75* 


* • 


1 757 
1 cO 


■ A 

i • 


1 • 


1 750 


• • 


1 7*»i 




1 781 




1 42 




1755 




1754 




1755 




1756 





GLOBAL MACRO 0£FINITION SAvF 



THIS MACRO IS USED AT THE BEGINNING OF A SlORQUTINE TO SAVf= THE 
CONTENTS or THf GPRS RO T*«U R5. 

IM>UTS: SP unchanged SINCE SUBROUTINE WAS ENTERED 

R5SL0T OrrSET TO STACK SLOT FQR R5 (EQUATED TO 14 OCTAL) 

OUTPUTS: GPR SAVE AREA ON THE STACK IS LOADED WITH THE CONTENTS OF GPRS 

TOP OF bTACK LOADED WITH THE RETURN ADDRESS INTO PREG05 

CALLING SEQUENCE: SAVE 

COMMENTS: NO ARGUMENTS ARE ALLOUED. 

THE PASS MACRO SHOULD BE CALLED TO RESTORE THE GPR VAL'JES. 

• SUBORDINATE ROUTINES CALLED: PREGOS. 

.MACRO SAVE 
.LIST 

JSR R5. PREGOS (CALL REGISTER SAVE SUBRT. 

.NLIST 

.ENOM SAVE 



OHU 11 »UMC TST 
GLOBk HACSO OEriNIflON 

17$B 

1740 
l?4l 
1742 
1745 
1744 
1745 
174« 
1747 
1740 
1749 
1750 
1751 
1752 
175S 
1754 
1755 
1756 
1757 

175a 

1759 
1760 
1761 
1762 
1765 
1764 
1765 
1766 
1767 
17«S 
1769 
1770 
1771 
1772 
177S 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1785 
1764 
1785 



PMT4 HACnO Hl^OO 15 

P<ISS 



rmtt 04 09:4S PACE 5S 



.SBTTL GLOBAL »1ACR0 DEFINITION 



PASS 



THIS MACRO IS (.*SED IN CONJUNCTION UlTH THE SAVE MACRO. IT IS 
CALLED AT END OF A SUBROL'TINE TO PASS PARAMETERS IN GPRS BACK TO THE 
CALLING ROUTINE Bt ALTERING THE GPR SAVE AREA ON THE STACK AND THEN 
RETURNING TO PREG05 TO RESTORE THE GPRS TO THEIR SAVED VALUES. 

IDPUTS: ONit ALLOWED ARGUMENTS ARE "RO" THRU "RS". 

ROSLOT THRU R5SL0T MUST BE EQUATED TO THEIR RESPECTIVE GPR SAVE 
SLOT OTFSEiS BEFORE CALLING THIS MACRO. 

OUTPUTS: THE GPR VALUES ARE PUT IN THEIR RESPECTIVE SLOTS ON THE STACK. 

CALLING SEQUENCE: PASS RO.RI .... 

CONNENTS: ANV COMBINATION OF GPR ARGUMENTS MAT BE LISTED IN ANT ORDER. 
FOR EXAMPLE. THE FOLLOWING ARE LEGAL: 

PASS Rl 

PASS R4.R0.R2 
THE GPRS LISTED As'aRGUMENTS WILL BE PASSED INTACT TO ThE 
CALLING ROUTINE. ALL OTHER GPRS WILL BE RESTORED. 
THE SP MUST BE AT ITS ORIGINAL VALUE WHEN PASS IS CALLED. 

THE MACRO CALL 

PASS RO RS 
EXPANDS INTO THE FOLLOWING ASSEMBLY CODE; 

MOV RO.ROSLOT(SP) 

MOV R3.R3SL0T{SP) 

JSR PC.8(SP). J RETURN TO PREG05 SU8RT. 

IN THIS EXAMPLE GPRS Rl. R2. R4. AND R5 WILL BE RESTORED TQ 
THEIR VALUES CONTAINED IN THE STACK FRAME AND RO AND RS 
WILL BE LEFT AT THEIR VALUES PRIOR TO THIS PASS CALL. 



I PUT RO IN STACK SLOT, 
jPUT RS IN STACK SLOT. 



• SUBORDINATE ROUTINES CALLED: (PREGRT • LABEL WITHIN PREG05. VALUE ON STACK.) 



.MACRO PASS A.B.C.D.E.F 
,IRP X.<A.B.C.D.E.r> 
.IF NB.X 
.LIST 

MOV X.X SLOT(SP) 

.NLIST 

.ENDC 
.ENOM 
.LIST 

JSR PC,8(SP)» 

.NLIST 

.ENOM PASS 



»PUT X IN STACK SLOT. 



(RETURN TO PREG05 SUBRT, 



GLOBAL SiSROUTIir 



1?67 
17M 

1790 
1791 
1792 
1795 
1794 
I79i 
1796 
1797 
1796 
1799 
1000 
1001 
1002 
1005 
1004 
1005 
1006 
1007 
1000 
1009 
1010 
1011 
1012 
101S 
1014 
1015 
1016 
1017 
1010 
1019 
1020 
1021 
1022 
1025 
1624 
1025 
1026 
1027 
1020 
1629 
1050 
1631 
1652 
1653 
1654 
1655 
1656 
1857 
1656 
1859 



005524 
005524 
005526 
005550 
005552 
005554 
005556 
005340 



005546 
005550 
005352 
005354 
005556 
005560 
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010446 
010546 
010246 
010146 
010046 
010546 
016605 



000014 



005344 004756 



012605 
012600 
012601 
012602 
012605 
012604 



005562 000205 



PREG05 



J* 
J* 

s* IM>UTS: 
J • 

OUTPUTS 



PRESERVE REGISTERS RO THROUGH RS FOR SUBROUTINE CALLS. 



T^ RETURN ADDRESS BACK INTO THE CALLING ROUTINE MUST BE IN 
GPR R5. (I.E. MACROS USE "JSR R5.PREG05" . 1 

REGISTERS RO THROUGH R5 ARE SAVED ON THE STACK. 



SAVE 



j*CALLlNG SEQUENCE: 
I* 
I* 
{• 

(•COMMENTS: 
I* 
»* 
»• 
J* 
J* 
J» 
I* 

!*SU80R0INATE ROUTINES CALLED 
I **•*«*****•••**••••*****•*** 



iMACRO EXPANSION CALLS PREG05. 



(SUBROUTINE CODEl 

''ASS s MACRO EXPANSION RECALLS PREG05. 

THIS ROUTINE IS RE-ENTRANT. 



PARAMETERS MAr BE PASSED OUT OF A SUBROUTINE B> MODIFYING 
REGISTER SAVE AREA ON THE STACK. USE THE PASS GPRN MACRO 
TO RETURN GPR VALUES INTACT. 

USE THE RNSLOT OFFSETS FROM THE SP TO PASS OTHER PARAMETERS 
(EXAMPLE: MOV VALlCROSLOKSP) 1 

MAKE SURE THE SP IS AT ITS ORIGINAL VALUE WHEN YOU DO THIS. 

NONE. 



THE 



PREG05: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

JSR 



R4. (SP) 
R3. (SP) 
R2.-(SP) 
Rl.-(SP) 
RO.-(SP) 
R5.-{SP) 
R5SL0T(SP).R5 

PC.a(SP)* 



{R5 HAS BEEN LOADED OH THE STACK BY THE S'JBROUTINE CALL 



(SAVE R4 
;SAVE R3 
I SAVE R2 
I SAVE Rl 
I SAVE RO 

(PUSH RETURN PC ON TOP OF STACK 
{RESTORE R5 TO VALUE IT HAD BEFORE CALLS 

(CALL THE SUBROUTINE AT THE RETURN ADDRESS 
I FROM THE PREG05 CALL. PUTTING THE PRESENT 
|PC ON THE STACK AS A RETURN AD0RES« INTO 
I THIS (PREG05) ROUTINE. 



I THE FOLLOUING CODE IS EXECUTED UHEN THE CALLING ROUTINE DOES A 



PREGRTi 



J "RETURN- 

i 

! MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



(JSR PC.a(SP)*l USING THE PC DEPOSITED ON THE STACK ABOVE. 



RTS 



{SP)»,R5 
(SP)».RO 
(SP)..R1 
(SP).,R2 
(SP)».R5 
(SP).,R4 

R5 



I PUT RETURN PC IN R5. 
•RESTORE RO. 
I RESTORE Rl. 
I RESTORE R2. 
•RESTORE R3. 
{RESTORE R4. 

iRETURN TO THE SUBROUTINE UHlCH CALLED PREOOS. 
{RESTORING R5 IN THE PROCESS. 



DHL II f'»»v 

i041 
1849 
1050 
1051 
1052 
1055 
1054 
1055 
1056 
1^57 
1050 
1059 

1060 005S64 
005364 
005 S64 

005.^7 
0059 7;> 



rsl PAR (4 MACRO Hl^OO 



1061 
1067 
1060 
1069 

1070 005574 
005374 



T4/ 



1871 
19-2 
1079 



104 

055 
000 



110 
061 
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.SBTTL GLOBAL TEXT SECTION 



T»C GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS. 
MESSAGES. AND ASCII INFORMATION THAT ARE USED IN 
MORE THAN ONE TEST. 



FO 44 



125 
061 



005374 


104 


110 


125 


005377 


055 


061 


061 


005402 


040 


106 


125 


005405 


116 


103 


040 


005410 


124 


123 


124 


005413 


040 


120 


101 


005416 


122 


124 


064 


005421 


000 







NAMES OF DEVICES SUPPORTED By PROGRAM 
OEVTYP <DHU ll> 



LIOVTyP: : 



.ASCI2 /DMVj 11/ 
.EVEN 



; TEST DESCRIPTION 
* OESCRIPT 



<0HO II FUNC TST PART4> 



LIOESCt 



.ASCI2 /OMU-11 FUNG TST PAR 



.EVEN 



.EVEN 



DHL' II rcfC tST MAftM 
GLOeAL SECTION 
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tO0S 
1699 
1890 
18«»1 
1892 
1«95 
'094 
1895 
1896 
1897 
1S90 
1899 
1900 
1901 
1902 
1905 
1904 
1905 
1906 
1907 
190a 
1909 
1910 
1911 
1912 
1915 
1914 
1915 
1916 
1917 
1916 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 



.NLIST BIN 



005422 
005470 
0055S0 
005555 
005567 
005651 
005725 
005746 
006061 
006157 
006254 
006336 
006410 
006437 
006467 
006520 
006544 
006640 
006677 
006736 
007025 
007101 
007141 
007206 
007225 
007306 
007311 
007357 
007435 
007535 
007566 
007626 
007 722 



rORnAT SrATEHENTS USED IN PRINT CALLS 



EOPTMT:: 



EF0503 
Eri601 
Eri603 
Er4401 

Er620l 
Ef6202 
EF6203 
EF9001 
EF900? 
EF9003 
EF9004 
EF9005 
Er9006 
Er9007 
Er9006 
EF9009 
EF9010 
EF9012 

EF9015 
EF9019 
EF9020 
EF9101 
EF9103 
EF9S01 
EF9302 
MFUNIT 
MSFmi 
HSFHT2 
UBRFMT 



.ASCII /*ArfOOeM LOOPBACK TEST STATUS REPORT: / 
.4SCIZ /PATTERN •K05«A (0) COMPLETED. «N/ 
.ASCIZ /#T*N/ 

.ASCIZ /«A aT^A. TEST ABORTED «4/ 

.ASCIZ /«A ACTUAL DATA; «06«A (0).«N/ 

.ASCII /*N*A DMA ADDRESS TEST SUCCESSFUL. BITS 0 TO «D2#A (0) TESTED/ 
.ASCIZ / C«D2«A BITS).«N/ 

.ASCIZ \«A FRAMING/PARITY ERROR DETECTION AND REPORTING BAD ON LINES:«02«A 
.A3CIZ /tfA CHAR RECEIVED WITH FRAMING ERROR BIT «T«A, SHOULD BE «T«N/ 
.ASCIZ /«A CHAR RECCIVEO WITH PARITY ERROR BIT «T«A. SHOULD BE «T«N/ 
.ASCIZ /«A UNEXPECTED <T*A FOUND IN RECEIVE CHAR FIFO:*N/ 
.ASCIZ /«A CODE IS ASSOCIATED UITH LINE: «D2KN' 
.ASCIZ /«A CODE IS: «03tfN/ 

.ASCIZ /«A «T«A V/U.UE: tf03«4/ 
.ASCIZ /«A «T«A VALUE: N0NE«N/ 
.ASCIZ /tfA tfT«A «D2«A(D)«(N/ 

.ASCIZ /«A CHARACTER RECEIVED WITH ERROR FLAG(S) SET ON LINE «D2«N/ 
.ASCIZ /«A CHARACTER READ AS: «03«N/ 
.ASCIZ /«A tfTtfA ERROR FLAG SET.«N/ 

.ASCIZ /«A NUMBER OF ERRORS DETECTED ON LINE «D2«A IS «D5«N/ 
.ASCII /«A LlNE«<D2f(A ONLY «T«05tfA BYTES OF«DS«A BYTE/ 
.ASCIZ / DATA PAT'N TX'D FROM LINE«02*N/ 
.ASCIZ /«A DATA PATTERN NOT COMPLETELY «T«N/ 
.ASCIZ /tfA itT«A «06«N/ 

.ASCIZ /«A TOO FEU TX. ACT IONS GENERATED ON LINE «D2«N/ 
.ASCIZ /*N/ 

.ASCIZ /«A ERROR CONDITION ON LINE «02i»N/ 

.ASCIZ /«A «T«)2«(ACD). BMP CODE REPORTED :«03«AC0)«N/ 

.ASCIZ /«A OVERFLOW OCCURRED CHORE THAN 31 BMP CODES FOUND IN QUEUE )«N/ 
.ASCIZ /«NtiA TESTING UNIT :«D4tfN/ 
.ASCIZ /tfAMODEM STATUS SIGNAL REPORT :«N/ 

.ASCIZ /«A LINE M02«A: 0SR-^1«A. RI-tfBl«M. OCD-tfBl«A. CTS-^1«N/ 
.ASCIZ /«D5tfA IS NOT A SUPPORTED BAUDRATE, ENTER ANOTHER OR CTRL C.«N/ 
EVEN 

.LIST BIN 



I ('4 
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<.C0 



1458 
1959 
1940 
1941 
1942 
1945 
1944 
1945 
1946 
1947 
1940 
1949 
1950 
1951 
1952 
1955 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1965 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1975 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1985 
1984 
1985 
1966 
1987 
1988 
1989 
1990 
1991 
1992 
1995 
1994 



.NLIST BIN 



010020 
010047 
010105 
010111 
010174 
010224 
010272 
010567 
010426 
010522 
010576 
010660 
010725 
010760 
011007 
011054 
011106 
011115 
011146 
011175 
011215 
011255 
011506 
011571 
011452 
011476 
011522 
011552 
011542 
011551 
011645 
011661 
011670 
011745 
012001 
012075 
012121 
012201 
012260 
012555 
012577 
012466 
012542 
012572 
012651 
012701 
012746 
013022 
015074 
015145 
015^24 



GLOBAL ERROR MESSAGES 



BORNSG 
EMOIOS 
Eri0509 
EM1601 
En4401 
EM4402 
Em405 
Em404 
EM4405 
EH4406 
EM4407 
Em406 
Em409 
Em410 

Em4ii 

En6201 
EM6202 
En6501 
EM8901 
En9005 
EM9004 
EM9006 
Ef19007 
EM9008 
EM9009 
EM9010 
EM9011 
EM9012 
EM9015 
EM9014 
Ef19015 
EM9016 
EM9017 

EM9025 
EH9026 
EM9027 
EM9028 
EH9050 
EM9101 
EH9102 
EH9104 
EM9201 
EM9501 
EM9502 
EM9503 
EM9504 
EM9401 
EMLMSG 
EXTMSG 
NOPMSG 



.ASCIZ /riDOEn BAUORATE IN BPS:/ 

,ASCIZ /DEVICE REGISTER ACCESS ERRORS/ 

.ASCIZ /SET/ 

.ASCIZ /TIMEOUT OCCURRED WAITING FOR MASTER RESET TO CLEAR/ 

.ASCIZ /DMA ADDRESS TEST TAILED/ 

.ASCIZ /NO SUITABLE ADDR FOUND. TEST ABANDONED/ 

.ASCIZ /**HOST FAILURE** iURITE FAILED TO AN ADDR UHlCH HAD BEEN READ/ 

.ASCIZ /NO ACTIVE LINES. TEST ABANDONED/ 

.ASCIZ /DMA START BIT FOUND SET BEFORE DMA INITIATED, TEST ABANDONED/ 

.ASCIZ /TIME-OUT OCCCUREO WAITING FOR DMA TO FINISH/ 

.ASCIZ /TOO FEW CHARACTERS F(X>0 IN THE RXFIFO.OMA FAILED/ 

.ASCIZ /TOO MANY BMP COOES FOUND IN RXFIFQ/ 

.ASCIZ /BAD BITS BETWEEN BITS 0 AND / 

.ASCIZ /RXFIFO FAILED TO PURGE/ 

.ASCIZ /•*HOST FAILURE*»WRITE ATTEMPT FAILED/ 

.ASCIZ /FRAMING ERROR TEST FAILED/ 

.ASCIZ /CLEAR / 

.ASCIZ /PWilTY ERROR TEST FAILED/ 

.ASCIZ /MODEM LOOPS ACK TEST / 

.ASCIZ /MODEM STATUS CODE/ 

.ASCIZ /SELFTEST CODE/ 

.ASCIZ /CHARACTER RECEIVED ON INACTIVE LINE. LINE:/ 

.ASCIZ /UNEXPECTED CHAR RECEIVED AFTER RX COMPLETE ON LINE/ 

.ASCIZ /RECEIVED CHAR MISCOMPARE AGAINST TX DATA ON LINE/ 

•ASCIZ /EXPECTED OR CORRECT/ 

.ASCIZ /ACTUAL OR MEASURED / 

.ASCIZ /OVERRUN/ 

.ASCIZ /FRAMING/ 

.ASCIZ /PARITY/ 

.ASCIZ /SUMMARY REPORTS FOR LINES WITH EXCESSIVE NUMBERS OF ERRORS:/ 

.ASCIZ /TRANSMITTED/ 

.ASCIZ /RECVO/ 

•ASCII / FIFO WILL NOT PURGE (DATA. VALID STUCK SETl./ 

.ASCIZ / REMAINDER OF TEST SKIPPED./ 

•ASCIZ /MORE THAN TWICE THE EXPECTED NUMBER OF CHARACTERS RECEIVED./ 

.ASCIZ / LPR CONTENTS: / 

.ASCIZ /EXTRA CHAR RECEIVED WITHIN DATA PATTERN ON LINE/ 

.ASCIZ /SINGLE CHAR MISSING FROM RECEIVED DATA ON LINE/ 

.ASCIZ /#A (NO TX COMPLETION INTERRUPTS RECEIVED )#N/ 

•ASCIZ /DMA TRANSMISSION MC»E TEST FAILED/ 

•ASCIZ /DMA START BIT SET AFTER RESET OR TX. ACTION ON LINE(S):/ 

•ASCIZ / UNEXPECTED DATA FOUND IN FIFO FROM LINE: / 

.ASCIZ /SPLIT SPEED TEST FAILED/ 

.ASCIZ /BMP COOES WERE REPORTED DURING THIS DIAGNOSTIC/ 

.ASCIZ /BMP CODE FOUND IN TEST / 

•ASCIZ /THE LAST BMP CODE WAS FOUND IN TEST / 

.ASCIZ /UNEXPECTED BMP CODES FOUND DURING THIS PASS/ 

•ASCIZ /KEYBOARD ECHO (DMU REMOTE LOOPBACK) TEST / 

•ASCIZ /TYPE <CR> WHEN MODEM LINK ESTABLISHED:/ 

•ASCIZ /EXIT THE TEST (N - LOOP BACK TO SEND MORE DATA);/ 

.ASCII /NUMBER OF ?56 BYTE PATTERNS TO SEND CN EACH SELECTED LINE/ 
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J4 



OHU 11 fiJNC TST PARf4 MACRO N1200 IS MAR 84 09:46 PAGE 50 
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2006 
2009 

2010 .SBTTL GLOBAL ERROR REPORT SECTION 

2011 

2012 

2013 J THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 

2014 : USED Br MORE THAN ONE TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRIN'B 

2015 » (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 

2016 : 



GLOB At (RROR REPORTING ROUTINE 



IS HAR 04 09:48 
EROlOl 



PAGE 39 



2010 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2026 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2036 

2039 

2040 

2041 013500 
013500 

2042 013500 
013500 

2043 

2044 013504 

2045 013510 

2046 013514 
2047 

2046 
2049 
2050 

2051 013516 

2052 013522 

2053 013524 
013524 
013530 
013534 
013536 
013540 

2054 013544 

2055 013550 

2056 013552 
013552 
013556 
013562 
013564 
013566 

2057 013572 
013572 
013576 
013602 
013604 
OIS0O6 



004567 171620 



012700 
046700 
001036 



032705 
001410 

012746 
012746 
010600 
104414 
062706 
032705 
001410 

012746 
012746 
010600 
104414 
062706 

012746 
012746 
010600 
104415 
062706 



000100 
166446 



OOOOOl 



013616 
OOOOOl 



000004 
000002 



013674 
OOOOOl 



000004 

013753 
OOOOOl 



000004 



.SBTTL GLOBAL ERROR REPORTING ROUTINE EROlOl 



s* 
:* 



p ?H;r^iM.£risi ;!!:;^si&,?-?s? f^^p^'rar H^^^^lir* 



!* INPUTS: R5 ERROR FLAG WORD. 

♦ IF BIT 0 IS SET. 

♦ IF BIT 1 IS SET. 



A READ ERROR OCCUREO. 
A WRITE ERROR OCCUREO. 



OUTPUTS: MESSAGES ARE PRINTED AT THE OPERATOR CONSOLE. 



s* CALLING SEQUENCE: 

: « 



COMMENTS: 



i^lilji^! "EROlOl" AS THE MESSAGE POINTER 

PARAMETER IN THE DRS ERROR REPORT MACRO CALL. 



;* SUBORDINATE ROUTINES USED: NONE, 



BGNMSG EROlOl 



SAVE 



MOV 
BIC 
BNE 



JSR 



«BI T06.ro 
OPTION. RO 
6» 



EROlOl • • 

;SAVE THE GPR CONTENTS. 

R5.PREG05 jCALL REGISTER SAVE SUBRT. 

iFXIT IF OPTION NOT SELECTED. 



REPORT EXTENDED ERROR INFOMATION 



2«: 



4S; 



BIT «BIT0,R5 
BEQ 2» 
PRINTS WSGl 



BIT OBITLRS 
BEQ 4t 
PRINTS »MSG2 



PRINTX «MSG3 



;TEST FOR READ ERROR. 

'15^?,'*^?°^^'*''°'' "SG IF NO READ ERROR. 
;PRINT READ ERROR MESSAGE. 

MOV 
MOV 
MOV 
TRAP 

J TEST FOR WRITE ERROR. 

'l£Jfr'*ill "SG IF NO WRITE ERROR. 

iPRINT WRITE ERROR MESSAGE. 

MOV 
MOV 
MOV 
TRAP 
ADO 

iSiJGCEST THAT OHU MAt BE AT WRONG ADDRESS 

MOV tMSGS.-CSP^ 
MOV CSP) 
MOV SP.RO 
TRAP C»PNTX 
ADO M.bP 



♦MSGl. (SP) 
•I. (SP) 
SP.RO 
CIPNTB 
#4.SP 



•MSG2. -(SP) 

•l,-(SP) 

SP.RO 

CIPNTB 

♦4.SP 



EPCmriNC ROUTINE 



2056 
2059 



2060 
2061 



2062 



2063 
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2064 
2065 



013612 
















013614 








013614 








013614 


104423 






013616 


045 


101 


102 


013621 


125 


123 


040 


013624 


124 


111 


115 


013627 


105 


055 


117 


013632 


125 


124 


040 


013635 


124 


122 


101 


013640 


120 


040 


103 


013643 


101 


125 


125 


013646 


105 


104 


040 


013651 


102 


131 


040 


013654 


122 


105 


101 


013657 


104 


040 


101 


013662 


124 


124 


105 


013665 


115 


120 


124 


013670 


056 


045 


116 


013673 


000 






013674 


045 


101 


102 


013677 


125 


123 


040 


013702 


124 


111 


115 


013705 


105 


055 


117 


013710 


125 


124 


040 


015713 


124 


122 


101 


013716 


120 


040 


103 


013721 


101 


125 


123 


013724 


105 


104 


040 


013727 


102 


131 


040 


013732 


127 


122 


111 


OIS735 


124 


105 


040 


013740 


101 


124 


124 


013743 


105 


115 


120 


013746 


124 


056 


045 


013751 


116 


000 




013753 


045 


101 


104 


013756 


110 


125 


040 


013761 


115 


101 


131 


013764 


040 


102 


105 


013767 


040 


101 


124 


013772 


040 


124 


110 


013775 


105 


040 


127 


014000 


122 


117 


116 


014003 


107 


040 


125 


014006 


116 


111 


102 


014011 


125 


123 


040 


014014 


101 


104 


104 


014017 


122 


105 


123 


014022 


123 


056 


045 


014025 


116 


045 


116 


014030 


000 







6<: 



PASS 
ENDMSG 



JSR 



:REST0RE THE GPR CONTENTS. 
PC.aCSP). 



iRETURN TO PREG05 SUBRT. 
L 10002: 



TRAP 



c*nsG 



.ASCIZ /«ABUS TIME-OUT TRAP CAUSED Bt READ ATTEMPT. *N/ 



.ASCIZ /«ABUS TIME OUT TRAP CAUSED BY URITE ATTEMPT. «N/ 



.ASCIZ /«ADHU MAY BE AT THE WRONG UNIBUS ADDRESS. «N«N^ 



.EVEN 



2067 

2066 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2076 

2079 

2060 

2061 

2062 

2063 

2064 

2065 

2066 014032 
014032 

2067 

2066 014032 
2069 014036 
2090 014042 
2091 
2092 

2093 014044 
014044 
014046 
014052 
014056 
014060 
014062 

2094 

2095 014066 
014066 
014066 



012700 
046700 
00101 t 



010146 
012746 
012746 
010600 
104414 
062706 



104423 



'^OOIOO 
166120 



005530 
000002 



000006 
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SBTTL GLOBAL ERROR REPORTING RQUTIKC ER0505 



* 
* 

* 

J* 
»* 
J* 

t** 



INPUTS: 
OUTPUTS: 



Rl ADDRESS OF THE MESSAGE TO PRINT. 

A MESSAGES IS PRINTED AT THE OPERATOR CONSOLE, 



CALLING SEQUENCE: 



LOAD THE ADDRESS OF THE MESSAGE IN Rl 

INCLUDE THE LABEL "ER0503" AS THE MESSAGE PnrigTCD 

PARAMETER IN THE DIAG SUPER ERROR REPoSt mScRO cJlL. 



COMMENTS: THE MESSAGE IS PRINTED AS BASIC ERROR INFORMATION. 
SUBORDINATE ROUTINES USED: NONE. 



BGNMSG ER0503 



nOV «BIT06.R0 
BIC OPTION, RO 
BNE 2$ 



PRINTB ♦EFOSOS.Rl 



ER0505: 



TRY TO CLEAR THE 

EXT'D ERROR REPORTING FLAG 

EXIT IF FLAG NOT SET. 



S PRINT THE MESSAGE. 



2*: 



ENOMSG 



L 10003: 



MOV Rl.-CSP) 

MOV ♦EF0503, (SP) 

•2,-(SP) 
MOV SP.RO 
TRAP CIPNTB 
ADD 96 . SP 



TRAP CIMSG 



N4 



Q*V-ll f^iAt-^i' PAR 1 4 MACRO M1200 

Clobac error rcportimg routine 
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2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2106 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 

2120 

2121 
2122 
2123 
2124 
2125 
2126 
2127 



,S8TTL GLOBAL ERROR REPORTING ROUTINE 



ER1603 



2128 
2129 
2130 



2131 
2132 

2133 



014070 
014070 
014070 
014070 

014074 
014100 
014104 



014106 
014106 
OI4I10 
014114 
014120 
014122 
014124 

014130 
014134 
014134 
014136 
014142 
014146 
014 ISO 
014152 

014156 
014156 
014160 
014160 
014160 



004567 171230 



012700 
046700 
001024 



010146 
012746 
012746 
010600 
104414 
062706 

016702 

010246 
012746 
012746 
010600 
104414 
062706 



004736 



104423 



000100 
166056 



005550 
000002 



000006 
171164 



005535 
000002 



000006 



* THIS ERROR REPORTING ROUTINE IS USED TO PRINT OUT A BASIC ERROR 

* HESSAGE. ALONG UITH A MESSAGE INPORHING THE OPERATOR WHICH TEST IS 

* ABOUT TO BE ABORTED. PROVIDED EXTENDED ERROR INFQHATION HAS BEEN 

* REQUESTED. OTMERUISE ONLY A "TEST FAILURE" MESSAGE WILL BE PRINTED. 

* INPUTS: Rl CONTAINS THE ADDRESS OF THE MESSAGE TO BE PRINTED. 

* ERRMS6 - CONTAINS THE ADDRESS OF THE MESSAGE THAT INDICATES 

* THE TEST THAT IS BEING PERFORMED. EG DMA. BREAK ETC. 
* 

* OUTPUTS: MESSAGES ARE PRINTED AT THE OPERATORS CONSOLE. 

* 'TESTNAME TEST ABORTED" 



* CALLING SEQUENCE: 
* 

I COMMENTS: 
* 



INCLUDE THE LABLE "ER1603" AS THE MESSAGE POINTER 
PARAMETER IN THE ORS ERROR REPORT MACRO CALL. 



• SUBORDINATE ROUTINES CALLED: NONE. 



BGNMSG ER1603 



SAVE 



MOV 
BIC 
BNE 



JSR 



»BIT06.R0 
OPTION. RO 
2» 



PRINTS #EF0503.R1 



ER1603: : 
J SAVE THE CONTENTS OF THE GPRS. 
R5.PREG05 sCALL REGISTER SAVE SUBRT. 

J TRY TO CLEAR THE 

tEXT'O ERROR REPORTING FLAG 

sEXIT IF FLAG NOT SE . 



:PRINT BASIC MESSAGE ON OPERATORS CONSOLE. 



MOV ERRMSG.R2 
PRINTS *EF1601,R2 



iGET THE "TEST MESSAGE". 

; PR INT "TEST ABORTED" MESSAGE. 



MOV Rl.-{SP) 

MOV •EF0503. -CSP) 

MOV ♦2.-(SP) 

MOV SP.RO 

TRAP CiPNTS 

ADD »6.SP 



MOV R2,-(SP) 

MOV •EF 1601. -CSP) 

MOV *2,-(SP) 

MOV SP.RO 

TRAP C»PNTS 

ADD «6.SP 



2t: 



PASS 
EN0M5G 



{RESTORE THE CONTENTS OF THE GPRS. 

JSR PC.9(SP)» {RETURN TO PREG05 SUBRT. 



L 10004: 



TRAP 



C»MSG 



■^1 



B 



OMU It 
GLO0AL 

21S6 
21ST 

215* 
2140 
2141 
214^ 
2145 
2144 
2145 
214* 
214 T 
214S 
214* 
2150 
2151 
2152 
2155 
2154 
2155 
2156 
2157 
2156 
2159 
2160 
2161 
2162 
2165 

2164 

2165 
2166 
2167 
2166 
2169 
2170 
2171 
2172 
2175 
2174 
2175 
2176 



fUNC T!>r PMT4 rMCftO 
itmOU IMPORTING OOUTINE 
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2177 
2176 
2179 
2160 
2181 
2162 



014162 
014162 
014162 
014162 



014166 
014174 



014176 
014202 
014204 
014206 
014206 
014210 
014212 
014216 
014222 
014224 
014226 



014252 
014256 
014242 



004567 171156 



052 76 7 
001507 



016504 
006205 
006204 

010446 
010546 
012746 
012746 
010600 
104414 
062706 



012704 
012701 
052705 



000100 165766 



005254 



005746 
000005 



000010 



011106 
010105 
000002 



.S8TTL GLOBAL EAROR REPORT I»C ROUTINE ER6201 

I* THIS IS Ml ERROR REPORTING SUBROUTINE UHICH IS XNTENOEl. TOR USE IN THE 

}« FRAMING ERROR AND PARITY ERROR TESTS. IT REPORTS ERR&4 INF0m.*.'>TI0N 

a* l*CN A CHARACTER HAS BEEN READ FR0»1 THE OUT UITH THE INCORRECT 

{• COreiNATION OF FRAHING AND PARITY ERROR BITS. T»CSE ERRORS ARE REPORTED 

t* ONLY IF EXTENDED ERROR REPORTING HAS BEEN REQUESTED. 

* DATA BYTE READ FROM THE OUT. INCLUDING ERROR FLAGS. 

LINE NUMBER MULTIPLIED BY 2. 
MESSAGE FLAGS. WHICH MESSAGES TO REPORT, 
BITl AND BITS - INDICATE UHlCH MESSAGES ARE TO BE 
REPORTED, FRAMING OR PARITY RESPECTIVELY. 
BITO AND BIT 2 - "SET •/"CLEAR" MESSAGE FQR 
FRAMING AND PARITY ERRORS BITS. 



R2 
R5 
R5 



»• IMMTS: 
1* 

!• 
!• 
!• 
!• 
I* 

\» OUTPUTS: 

!• CALLING SEQUENCE 
I* 

i* COMMENTS: THE MESSAGE IS PRINTED AS BASIC AND EXTENDED ERROR INFORMATION. 
I* THE CONTENTS OF THE INDIRECT ADDRESS REGISTER FIELD OF THE OUT 

I* CSR MAY BE ALTERED. 

I* 

I* SUBORDINATE ROUTINES USED: PRTLPR. 



MESSAGES ARE PRINTED AT THE OPERATOR CONSOLE. 

INCLUDE THE LABEL '•ER6201" AS THE MESSAGE POINTtR 
PARAMETER IN THE OIAG SUPER ERROR REPORT MACRO CALL, 



BGNMSG ER6201 
SAVE 



JSR 



ER6201 : : 

iSAVE THE CONTENTS Of THE GPRS. 
R5,PREG05 I CALL REGISTER SAVE SUBRT. 



I EXIT IF EXTENDED ERROR REPORTING HAS NOT BEEN ENABLED 
I 



BIT 
BEQ 



MOV 
ASR 
ASR 
PRINTS 



•6IT06.0PTI0N 
601 



rxRXLB(R5;.R4 

RB 

R4 

•EF620l.R5.R4 



lEXlT WITH TEST FAILURE MESSAGE IF 
iNO EXTENDED ERROR REPORTING HAS BEEN REQUESTED 
I DURING THE SOFTWARE QUESTIONS. 

iGET THE ASSOCIATED TX LINE NUMBER. 
J CALCULATE THE RX LINE NUMBER. 
I CALCULATE THE ASSOCIATED LINE NUMBER, 
s REPORT THE ERROR TYPE AND LINE NUMBERS. 



MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



R4..(SP^ 
R5. (SP) 
•EF6201. 
•5,(SP? 
SP.flO 
C»PNTB 
•10. SP 



(SP" 



i • 



REPORT FRAMING ERROR PROBLFM. 



MOV 
MOV 
BIT 



♦EM6202,R4 
•EM0509.R1 
•eiTl.RS 



iSELECT THE ERROR BIT CLEAR' MESSAGE. 

{SELECT EXPECTED ERROR BIT SET' MESSA(j» . 

I TEST IF FRAMING ERROR MESSAGE TO Bf REPORTCO. 



<?1SS 


014246 


001427 




2184 


014250 


032705 


C^OOOl 


2l«5 


014254 


001403 




2186 


014256 


010401 




2187 


014260 


012704 


010105 


2180 


014264 
014264 
014266 


010146 
010446 






014270 


012746 


006061 




014274 


012746 


000003 




014300 


010600 






014302 


104415 






014304 


062706 


000010 


2189 


014310 


052705 


000010 


2190 


014314 


001424 




2191 


014316 


012704 


011106 


2192 


014322 


012701 


010105 


2191 








2194 








2195 








2196 








2197 


014326 


032705 


000004 


2198 


014332 


001403 




2199 


014334 


010401 




2200 


014336 


012704 


010105 


2201 


014342 
014342 
014344 


01014t, 
010446 






014346 


012746 


006157 




014552 


012746 


000003 




014556 


010600 






014360 


104415 






014362 


06?706 


000010 


2202 








?203 


014366 
014366 


010246 






014370 


012746 


005567 




014374 


012746 


000002 




014400 


010600 






014402 


104415 






014404 


062706 


000006 


2204 








2205 


014410 


004767 


006152 


2206 


014414 
014414 


004736 




2207 


014416 
014416 
014416 


104423 





PAGt 4c» I 



2»: 



BEQ 

BIT 
B£0 

MOV 

NOV 
PRINTX 



BIT 
BEQ 
MOV 
MOV 



6t 

•BIT0.R5 
2% 

0EM05C9.R4 
•6F6202,R4.RI 



•eiT5.R5 
10» 

•eM6202.R4 
•EH0509,Rl 



(BRANCH TO REPORT PARITt ERROR. 

jTEST ERROR BIT SET /CLEAR* MESSAGE ^LAG 

iBRANCH TO REPORT ERROR BIT "CLEAR". 

iSELECT EXPECTED CLEAR" STATE MESSAGE. 

jSELECT the EfcROR BIT SET" MESSAGE. 

, REPORT THE SOUPCE OF THE PROBLEM. 

MOV 
MOV 
MOV 
WV 
MOV 
TRAP 
AOO 

ERROR MESSAGE TO BE 



J TEST 
lEXIT 
1 SELECT 
J SELECT 



If PARITT 
IF PARITT 
THE 
THE 



Rl, (SP) 
R4, -(SP) 
•€F6202. 
•5. (SP) 
SP.RO 
CIPNTx 
♦10. SP 
R£PO«T€t. 



(SP) 



ERROR REPORT TO BE SKIPPED. 
•CLEAR- MESSAGE . 
EXPECTED "SET" STATE MESSAGE, 



REPORT PARITY ERROR PROBLEM. 



6«: 



8«: 



BIT 
BEQ 

MOV 

MOV 
PRINTX 



•eiTS.RS 
81 

R4.RI 

•EM0509.R4 
#EF6203.R4,R1 



lot: 



PRINTX •EF160S.R2 



60 1 : 



JSR 
PASS 

ENOMSG 



PC.PRTl PR 

JSR 



jTEST "SET "/'CLEAR- MESSAGE FLAG. 

(BRANCH TO REPORT ERROR BIT CLEAR. 

(SELECT THE EXPECTED "CLEAR" STATE MESSAGE. 

(SELECT THE "ERROR BIT SET" MESSAGE. 

(REPORT THE SOURCE OF THE PROBLEM, 

MOV R1.-(5P) 

MOV a4.(SP) 

MOV •EF6205. 

MOV ^.-(SP) 

MOV SP.RO 

TRAP CtPNTX 

ADD 410. SP 



(REPORT ACTUAL DATA RECEIVED. 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



(SP^ 



R2.-(SP) 

#eri603, 

•2. (SP) 

SP.BO 

C»PNTX 

•6.SP 



(REPORT THE CONTENTS OF THE LPR FOR TMIS LINC. 

(RESTORE THE CONTENTS OF THE GPR S. 

PC,fl(SP)> (RETURN TO PREG05 SUBRT . 



I 10005: 



TRAP 



C»M'i(.. 



CSP^ 



GLOBAL tARCM RCPORTINb HOOUHL 



220^ 
2210 
2211 
22i2 
221$ 
221* 
2215 
2216 
221? 
2210 
2219 
2220 
2221 
2222 
2221 
2224 
2225 
222b 
2227 
2226 
2229 
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'fO M 



.SBTTL GLOBM. ERROR REPORTING ROUTINE 



ER900I 



THIS IS AN ERROR REPORTING SUBROUTINE UHlCH REPORTS AN UNEXPtCTEO 
CODE UHlCH HAS BECN FOUND IN THE OUT CSR. THIS CODE CAN BE A BHP 
CODE. A SELF TEST CODE. OR A HODEH STATUS CODE. 



I»#>UTS: 



OUTPUTS: 



Rl ADDRESS OF MESSAGE TO PRINT FIRST. 

R2 SINGLE BYTE CCuE UHICH HAS BEEN READ FROM THE OUT. 

R4 LINE NUMBER ASSOCIATED UITH THE CODE. 

A MESSAGES IS PRINTED AT THE OPERATOR CONSOLE . 



CALLING SEQUENCE; 



INCLUDE THE LABEL "ER9001" AS THE MESSAGE POINTER 
PARAMETER IN THE DIAG SUPER ERROR REPORT MACRO CALL. 



COMMENTS; THE MESSAGE IS PRINTED AS BASIC AND EXTENDED ERROR INFORMATION. 
SUBORDINATE ROUTINES USED: NONE. 



2.?S0 
2251 
2232 
2233 
2234 
2235 
2236 
2237 
2238 



2239 



2240 



2241 
2242 



014420 
014420 



014420 
014426 



014450 
014430 
014432 
014436 
014442 
014444 
014446 
014452 
0144S2 
014454 
014460 
014464 
014466 
014470 
0144 74 
014474 
014476 
014502 
0l450f^ 
014510 
014512 

014516 
014516 
014516 



BGNMSG ER9001 



ER9001: : 



t * 
i 



EXIT IF EXTENDED ERROR REPORTING HAS NOT BEEN ENABLED 



052767 
001455 



010146 
012746 
012746 
010600 
104414 
062706 

010446 
012746 
012746 
010600 
104415 
062706 

010246 
012746 
012746 
010600 
104415 
062706 



10442S 



000100 165554 



006254 
000002 



000006 

006556 
000002 

000006 



006410 
000002 



000006 



BIT •6IT06. OPTION 
BEQ 2$ 



PRINTB «EF9001.R1 



lEXlT UITH TEST FAILURE MESSAGE IF 

iNO EXTENDED ERROR REPORTING HAS BEEN REQUESTED 

I DURING THE SOFTWARE QUESTIONS. 



PRINTX •EF9002.R4 



PRINTX OEF9005.R2 



iREPORT TrPE OF CODE F0U4D. 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

iREPORT THE LINE NUMBER OF THE CODE. 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

, REPORT THE CODE UHlCH WAS FOUND. 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 



2$: 



ENOMSG 



L 10006: 



TRAP 



R1,-(SP) 
•EF9001. (5P^ 
•2. (SP) 
SP.RO 
CIPNTB 
•6.SP 

R4, -(SP) 

•EF9002. (SP) 

♦2,-(SP) 

SP.RO 

CIPNTX 

46. SP 

R2 , C SP ) 
•Er<»003, (SPI 
•2. (SP) 
SP.RO 
C»PKTX 
•6.SP 



C»HSO 



M1200 
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2i*4 

224t> 
2247 
2246 
2249 
2250 
2251 
2252 
2255 
2254 
2255 
225b 
2257 
2256 
225** 
2260 
2261 
2262 
226S 
2264 
2265 
2266 

2267 
2268 
2269 
2270 



.S8TTL GLOBAL ERPOR REPORTING ROUTINE 



ER9002 



»• 
s* 
s» 
i» 

:• 



THIS IS AN ERROR REPORTING SUBROUTINE WHICH IS INTENDED TOR USE IN THE 
TRA»*ISISSiaN AND RECEPTION TESTS. IT REPORTS THE TtPE Of ERROR UHICH 
MAS OCCURRED UHEN INCORRECT DATA IS RECEIVED FROti THE DUT . THIS 
R0«JTINE ALSO REPORTS THE READ AND EXPECTED DATA VALUES. 

INPUTS: Rl ADDRESS Of NESSAGE TO PRINT FIRST. 

R2 DATA BYTE READ FROM THE DUT. 

R5 - LINE NUfBER MULTIPLIED Bt 2. 

R4 - EXPECTED DATA BrTE. BIT 15 SET IF "NONE". 

OUTPUTS: A MESSAGES IS PRINTED AT THE OPERATOR CONSOLE. 

CALLING SEQUENCE: INCLUDE THE LABEL "ER9002" AS THE MESSAGE POINTER 

PARAMETER IN THE DIAG SUPER ERROR REPORT MACRO CALL. 

COMMENTS: THE MESSAGE IS PRINTED AS BASIC AND EXTENDED ERROR INFORMATION. 

SUBORDINATE ROUTINES USED: PHTLPR. 



014520 
014520 



BGNHSG ER9002 



ER9002; 



EXIT IF EXTENDED ERROR REPORTING ftAS NOT BEEN ENABLED 



2271 


014520 


052767 


000100 165454 


BIT 


2272 


014526 


001462 




BEQ 


2273 










2274 










2275 


014550 


006205 




ASR 


2276 


014552 


042702 


177400 


BIC 


2277 


014556 
014556 
014540 


010346 
010146 


PRINTB 




014542 


012746 


006520 






014546 


012746 


000005 






014552 


010600 








014554 


104414 








014556 


062706 


000010 




2278 


014562 
014562 


010246 




PRINTX 




014564 


012746 


011476 






014570 


012746 


006457 






014574 


012746 


000005 






014600 


010600 








014602 


104415 








014604 


062706 


000010 




2279 


014610 


005704 




TST 


2280 


014612 


100414 




BMI 


2281 


014614 
014614 


010446 




PRINTX 




014616 


012746 


011452 






014622 


012746 


006457 






014626 


012746 


000005 





96 I T06, OPT ION 
bet 



jEXIT WITH TEST FAlLi «?E MESSAGE IF 

iNO EXTENDED ERROR RcPORTING HAS BEEN REQUESTED 

I DURING THE SOFTWARE QUESTIONS. 



R5 

«177400.R2 
•EF9006.R1.R5 



R3,-(SP7 
Rl.-(SP) 
•EF9006. -(SP) 
#3.-(SP) 
SP.RO 
CIPNTB 
#10. SP 



(CALCULATE THE LINE NUMBER. 
:MASK OUT ALL BUT DATA IN READ CHAR. 
jPRINT THE FIRST LINE OF THE MESSAGE, 

MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

•EF9004,«EM9010.R£ :PRINT ACTUAL DATA. 

MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

R4 I CHECK FOR "NONE" CODE SET IN EXPECTED DATA. 

2* (BRANCH TO PRINT 'NONE' MESSAGE IF FLAG SET. 

•EF9004.«EM9009,R4 |PRINT EXPECTED DATA. 

MOV R4,.(SP> 
MOV #£HW9, 
MOV •€F^004. 

MOV »S.(SP^ 



R2,.(SP) 

•EM9010. 

«EF9004. 

»5,-CSP) 

SP.RO 

CIPNTX 

♦10. SP 



(SP^ 
(SP) 



(SP) 
■(SP> 
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St 



01465? 
014654 
014656 
22B2 014642 
22B5 014644 
014644 
014650 
014654 
014660 
014662 
014664 

2284 014670 

2285 014674 
014674 
014674 



010600 
104415 
062706 
000412 

012746 
012746 
012746 
010600 
104415 
062706 
004767 



104425 



000010 



011452 
006467 
000002 



000006 
005672 



2*i 



BR 

PftlNTX 



6us 

•eP9005.4eM9009 



60(: 
6£>i 



JSR 

ENOnSC 



PC.PRTLPR 



MOV 

TRAP 

ADO 

sEXiT THIS ROUTINE. 

jPRIMT MESSAGE INDICATING NO EXPECTED 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

jPRINT CONTENTS Of THE LPR REGISTER. 



1.10007; 



TRAP 



SP.flO 
CIPNTx 
•10. SP 

DATA. 

•EM9009, -(SP> 
•eP9005. (SP) 
•2. (SP) 
SP.RO 
CIPNTX 
•6.SP 



CIMSG 
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G5 



^^«7 




2^66 




2269 




22<Hy 




2291 




2292 




2293 




2294 




2295 




2296 




2297 




2296 




2299 




2300 




2301 




2502 




2303 




2304 




2305 




2306 




2307 




2300 




2309 014676 




014676 




2310 




2311 




2312 




2315 




2314 014676 


052767 


2315 014704 


001470 


2516 


2317 




2510 014706 


006205 


2519 014710 



014710 
014712 
014716 
014722 
014724 
014 726 

2520 014732 

2521 014754 

2522 014740 
014740 
014742 
014746 
014752 
014754 
014756 



2525 
2524 
2525 
2526 
2527 
2526 
2329 
2550 



014 762 
014766 
014772 
014774 



010546 
012746 
012746 
010600 
104414 
062706 
010201 
042701 

010146 
012746 
012746 
010600 
104415 
062706 



012701 
052702 
001402 
004767 



THIS IS AN ERROR REPORTING SUBROUTINE WHICH T<; TNTFwncn rno*Mcc*i^[*t^^ 
TRA»#1SISSI0N AND RECEPTION TESTiT n REPORTS ERrJI^S?q£2StV?.^ ULI^ 
A CHARACTER HAS BEEN READ FRQH tAe OUT WITH AN ERROR n AG SJ J?^aJ*^^ 
SET (IE. OVER RUN. FRAMING, OR PARITY FLAG) °^ 



•SBTTL^^GLOBAL ERROR REPORTING ROUTINE ER9003 

t* 
s • 

{• 

;* 
i • 

!• OUTPUTS 
;* 

CALLING SEQUENCE 

:* 



INPUTS: 



R2 
R5 



A MESSAGES IS PRINTED AT THE OPERATOR CONSOLE. 



INCLUDE THE LABEL "ER900S" AS THE MESSAGE POINTER 
PARAMETER IN THE OIAG SUPER ERROR REPORT MACRO CALL 

s* COMf€NTS: 
:* 

s* SiaOROINATE ROUTINES USED: NONE 



THE MESSAGE IS PRINTED AS BASIC AND EXTENDED ERROR TNFnPMflTTnki 
SSyir^L^REo" ADORES REl!???R'?;?fD'of°?2e'J??' 



BGNNSG ER9003 



ER9003: 



000100 165256 



EXIT THE TEST IF EXTENDED ERROR REPORTING MAS NOT BEEN ENABLED 



BIT 
BEQ 



ASR 
PRINTB 



•BIT06.0PTI0N 
62* 



R3 

•EF9007.R3 



jEXIT WITH TEST FAILURE MESSAGE IF 

»l!'9^l^^^'^'*^0 ERROR REPORTING HAS BEEN REQUESTED 
{DURING THE SOFTWARE QUESTIONS. «t«utbitu 

; CALCULATE THE LINE NUMBER. 
{ REPORT THE ERROR TYPE AND LINE 



006544 
000002 



000006 
177400 



006640 
000002 



000006 



011522 
040000 

000036 



nov 

BIC 
PRINTX 



R2.R1 

•177400. Rl 
•EF9006,R1 



NUMBER 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
FROM 



THE 



jEXTRACT THE RECEIVED CHARACTER . ^ 
8 PASSED IN CHAR VALUE WITH FLAGS. 
iREPORT THE VALUE OF THE RECEIVED CHAR. 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOO 

REPORT OVERRUN FLAG SET IF NECESSARY, 



R5. -(SP) 
♦£^9007, -(SP) 
♦2. (SP) 
SP.RO 
CIPNTB 
«6.SP 



Rl.-(SP) 

♦€F9008, 

♦2,-(SP) 

SP.PO 

CIPNTX 

♦6,SP 



(SP) 



MOV 
BIT 
BEQ 

JSR 



«eM90ll.Rl 

•6IT14.R2 

2« 

PC. 50* 



; • 



I SELECT THE OVERRUN ERROR MESSAGE. 
'^I?f£'*..2XI2'*V*? ''LAG IN PASSED IN CMAR. 

'I^^Sof'*?^? OVERRUN ERROR FLAG WAS Cl EAR. 
iREPORT J¥€. OVERRUN ERROR FLAG WAS SET. 



DHL n fiJN^ faf t>Mtl* MACRO Hl^OO 
SOBAi f AROR AiPOATINb ROUTINE 



2551 
2552 
2555 
2334 
255!!> 
2536 
2S57 
2336 
255^ 
2540 
2341 
2342 
2343 
2544 
2545 
2546 
2547 
2549 
2349 



2550 
2351 
2352 
2355 



015000 
015004 
015010 
015012 



015016 
01* 12^ 
015026 
015O5C 
015054 



015056 
015056 
015040 
015044 
015050 
015052 
015054 
015060 

015062 
015066 
015066 
015066 



012701 
052702 
001402 
004767 



012701 
052702 
001415 
004767 
000412 



010146 
012746 
012746 
010600 
104415 
062706 
000207 

004767 



104425 



01155ir 
020000 

000020 



011542 
010000 

000002 



006677 
000002 



000006 
005500 
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i REPORT f-RAHING FLAG SET IF NECESSARY. 

2»: MOV •^mOlZ.fil iSELECT THE FRAMING ERROR HEbSAGE . 

BIT •eiTl3.R2 s CHECK FRAMING ERROR FLAG IN PASSED IN CHAR. 

BEQ 4t I SKIP ERROR IF FRAMING ^RROR TLAG MAS CLEAR, 

JSR PC.5C* : REPORT THE FRAMING ERROR MESSAGE. 



REPORT PARITY FLAG SET IF NECESSARY, 



t - 
4t: 



MOV •EM9015,Rl ! SELECT THE PARITY ERROR MESSAGE. 

BIT «eiT12.R2 tCHECK PARITY ERROR FLAG IN PASSED IN CHAR. 

BEG 60« sEXiT ROUTINE IF PARITY ERRO FLAG WAS CLEAR. 

JSR PC. 50* jREPORT THE PARITY ERROR MESSAGE. 

BR 60S ;EXIT THIS ROUTINE. 



t ♦ 



t LOCAL SUBROUTINE TO REPORT AN ERROR TLAG STATUS 
50* : PRINTX «EF9009.R1 



60$: 
62>: 



RTS 
JSR 

ENOMSG 



PC 

PC.PRTLPR 



MOV Rl. (SP) 

MOV •EF9009. (SP) 

MOV W.-fSP) 

MOV SP.RO 

TRAP C»PKTX 

ADD «6.SP 



jREPORT THE LPR CONTENTS FOR IMIS LINE. 

L 10010: 

TRAP 



C»MSG 



OHu-u ^UNC rsr p/mt4 macro .11200 

GLOBAL emOR REPORTING ROUTINE 



2S55 
2356 
2557 
2$5« 
255* 
2S60 
2361 
2362 
2565 
2564 
2565 
2566 
2567 
256S 
2569 
23 TO 
2571 
2572 
2573 
2374 
2575 
2376 
2377 
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2370 
2379 
2300 
2381 



2382 
2383 
2364 
2365 
2586 
2367 
2366 



2369 
2390 
2391 
2392 
2393 



015070 
015070 
015070 
015074 
015100 
015102 
015102 
015106 
015112 
015116 
015120 
015122 
015126 
015130 
015154 
015136 
01S14C 
015142 
015144 
015144 
OlSlSO 
015152 
015156 
015162 
0IS164 
015166 
015172 
015174 
015176 
015200 
015202 
015202 
015202 



012700 
046700 
001040 

012746 
012746 
012746 
010600 
104414 
062706 
005002 
016703 
005004 
000241 
006003 
103013 

016446 
010246 
012746 
012746 
010600 
104415 
062706 
012405 
005202 
005703 
001356 



104423 



000100 
165062 



011551 
005530 
000002 



000006 
165344 



003302 

006736 
000003 



000010 



.SSTTL GLOBAL ERROR REPORTING ROUTINE 



F 99004 



I* THIS IS AN ERROR REPORTING SUBROUTINE UHICH REPORTS ERROR SUMMARIES 

fOR LINES UHICH HAVE EXCEEDED THE SPECIFIED MAXIMUM NUMBER QT 
INDIVIDUAL RECEPTION ERRORS. PROVIDED EXTENDED ERROR REPORTING HAS 

s* BEEN REQUESTED BY THE OPERATOR. 



;* INPUTS: 
J ♦ 



OUTPUTS: 



Rl ADDRESS OF MESSAGE TO PRINT FIRST. 

ERCNTB LABEL AT BASE OF LINE ERROR COUNTERS TABLE. 

ERSHRF "REPORT ERROR SUMMARY FOR LINE" FLAGS. 

A MESSAGE IS PRINTED AT THE OPERATOR CONSOLE. 



t* 

t* CALLING SEQUENCE: 

(* COMMENTS: THE MESSAGE IS PRINTED AS BASIC AND EXTENDED ERROR INFORMATION. 
,* THE CONTENTS OF GPR'S R2. R3. R4. AND R5 ARE DESTROYED. 



INCLUDE THE LABEL "ER9004" AS THE MESSAGE POINTER 
PARAMETER IN THE DIAG SUPER ERROR REPORT MACRO CALL 



SUBORDINATE ROUTINES USED: NONE. 



BGNMSG ER9004 



MOV 
BIC 
BNE 

PRINTB 



21: 



CLR 
MOV 
CLR 
CLC 
ROR 
BCC 

PRINTX 



ER9004 : : 

4BIT06.ro I try to CLEAR THE 

OPTION. RO sEXT'D ERROR REPORTING FLAG 

6» lEXlT IF FLAG NOT SET. 

•EF0503.»EM9014 (REPORT THE SECONDARY ERROR MESSAGE. 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



R2 

ERSMRF.R3 
R4 

R3 
4t 



dEF9010 .R2 . ERCNTBC R4 ) 



jCLEAR THE LINE COUNTER. 
»GET THE ERROR SUMMARY FLAGS. 
jCLEAR "LINE COUNTER TIMES 2" OFFSET, 
»CLEAR THE CARRY rQR THE FOLLOWING ROTATE. 
:SHIFT ANOTHER ERROR SUMMARY FLAG INTO CARRt . 
,SXIP PRINTING MESSAGE IF FLAG FOR LINE CLEAR. 



•EM9014. -<SP) 
•EF0505. -(SP> 
•2. (SP) 
SP.RO 
CtPNTB 
#6.SP 



4ti 



61: 



MOV 
INC 
TST 
BNE 

ENOMSG 



(R4). 
R2 
R3 
21 



.R5 



I INCREMENT THE LINE OFFSET BY 2. 
lINCREMT THE LINE COUNTER, 
(CHECK THE ERROR SUMMARY FLAGS. 
I IF MORE FLAGS SEl. LOOP TO 00 OTHER LINES 



MOV ERCNTBC »4 ). C -jP > 

MOV R2,-CSP) 

MOV ♦EF9010, 

MOV ©S.-CSP) 

MOV SP.RO 

TRAP CIPN'X 

ADD »10,5P 



LlOOll: 



TRAP 



C«HSG 



Jb 



OMU-ll fUHC TSI P<M»T4 HACRO »1200 
CtOBAL CAROR RCPORTING ROUTINE 



^595 
2346 
2597 
259« 
2599 
24-0O 
2401 
2402 
2405 
2404 
2405 
2406 
2407 
2406 
2409 
2410 
2411 
2412 
2415 
2414 
2415 
2416 
2417 
2416 
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SCO *.s 



2419 

2420 
2421 
2422 
2423 
2424 
2425 



2426 
2427 
2426 
2429 
2430 
24S1 
2432 
24SS 



2434 

2435 
24 36 
2437 



015204 
015204 
015204 
015204 

015<^10 
015214 
015220 

015222 
015222 
015224 
015230 
015234 
015236 
015240 
015244 
015246 
015252 



015254 
015254 
015260 
015264 
015266 
015270 
015274 
015276 
015300 
015302 
015302 



004567 170114 



012700 
046700 
001107 



010146 
012746 
012746 
010600 
104414 
062706 
005003 
022701 
001032 



000100 
164742 



007141 
000002 



000006 
011645 



012746 012260 
012746 OOOOOl 
010600 
104415 

062706 000004 
000241 
006002 
103013 

010346 



SBTTL GLOBAL ERROR REPORTING ROUTINE 



ER9005 



I* 

«• 
:• 

!* 

s* 
{• 
{* 

;* 
}* 
J • 

I* 



THIS IS AN ERROR REPORTING SUBROUTINE WHICH REPORTS INCOMPLETE OAT A 
TRANSMISSIONS OR RECEPTIONS. 

INPUTS: Rl EITHER "TRANSMITTED" OR "RECEIVED" TO INDICATE TX OR Rx. 

R2 BIT MAP OF LINES WHICH DID NOT COMPLETE TX OR Rx. 
R4 ADDRESS OF BASE OF THE CORRECT CHARACTER COUNTERS TABLE. 
DPLENB - LABEL AT BASE OF OATA PATTERN LENGTH TABLE. 
EM9015 - SYMBOLIC ADDRESS OF THE "TRANSMITTED" MESSAGE. 

OUTPUTS: A MESSAGE IS PRINTED AT THE OPERATOR CONSOLE. 

CALLING SEQUENCE: INCLUDE THE LABEL •ER9005" AS THE MESSAGE POINTER 

PARAMETER IN THE OIAG SUPER ERROR REPORT MACRO CALL. 

COMMENTS: THE MESSAGE IS PRINTED AS BASIC AND EXTENDED ERROR INFORMATION. 

THE CONTENTS OF THE INDIRECT ADDRESS FIELD IN THE OUT CSR MAY 
BE ALTERED. 

SUBORDINATE ROUTINES USED: PRTLPR. 



BGNMSG 
SAVE 



MOV 
BIC 
BNE 



ER9005 



JSR 



#flIT06.R0 
OPTION. RO 
10» 



ER9005: : 

:SAVE THE CONTENTS OF THE GPRS. 
R5,PREG05 tCALL REGISTER SAVE SUBRT. 

I TRY TO CLEAR THE 

lEXT'D ERROR REPORTING FLAG 

lEXIT IF FLAG NOT SET. 



PRINTB •EF9013.R1 



CLR R5 
CMP dEMgOlS.Rl 
BNE 6S 



(REPORT THE SECONDARY ERROR MESSAGE. 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

! CLEAR THE LINE COUNTER. 
(CHECK IF ADDRESS CORRESPONDS TO TX MESSAGE. 
iSRANCH IF RECEPTION MESSAGE TO BE PRINTED. 



Rl.-(SP) 
♦EF9013.-(SP) 
•2. -(5P) 
SP.RO 
CIPNTB 
«6,SP 



PERFORM TX INCOMPLETE ERROR MESSAGE REPORTING. 



PRINTX otmoso 



2»: 



CLC 
ROR 
8CC 

PRINTX 



R2 
4( 

•EF9020.R5 



tPRINT "NO TX COMPLETION INTERRUPTS RECEIVED' 

MOV •EM9030. 
MOV #l.-(SP5 
MOV SP.RO 
TRAP CIPNTX 
ADD #4.SP 

, CLEAR THE CARRY FOR THE FOLLOWING ROTATE. 

(SHIFT "TX NOT DONE" FLAG INTO CARRY. 

(SKIP PRINTING MESSAGE IF FLAG FOR LINE CLEAR. 

(PRINT "TOO FEW TX. ACTIONS GENERATED" MSG. 

MOV R5.(SP> 



QHU 11 fiMC TS7 PMT4 MACRO H1200 
GLOBAL fARM REPORTING ROUTINE 
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2438 
2459 
2440 
2441 
2442 
2443 
<;444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 



2457 
2456 
2459 
2460 
2461 
2462 
2463 

2464 



015304 
015310 
015314 
015316 
015320 
015524 
015530 
015332 
015334 
015336 



015340 
015342 
015544 
015346 
015350 
015354 
015356 
015560 
015364 
015366 
015370 
015370 
015572 
015574 
015576 
015400 
015402 
015406 
015412 
015414 
015416 
015422 
015424 
015450 
015452 
015434 
015436 
015440 
015440 
015442 
015442 
015442 



012746 
012746 
010600 
104415 
062706 
004767 
005205 
005702 
001557 
000440 



000241 
006002 
105051 
006505 
016505 
010246 
010502 
016505 
006202 
006205 

010246 
010546 
011446 
010146 
010546 
012746 
012746 
010600 
104415 
062706 
012602 
004767 
005724 
005205 
005702 
001340 

004756 



104423 



007225 
000002 



000006 
005256 



4(: 



s ♦ 



JSR 
INC 
TST 

BNE 

BR 



PC.PRTLPR 

R5 

R2 

2» 

10 J 



MOV 
MOV 
MOV 
TRAP 
ADO 

REPORT CONTENTS Of LPR REGISTER FQR 
INCREMENT LIHE COUNTER. 
CHECK THE "TX NOT DONE FLAGS'. 
IF MORE FLAGS SET. LOOP TO 00 OTHER LINES. 
EXIT THIS ROUTINE. 



•EF<K)i?0. 
•2. (SP) 
SP.RO 
C»PNTX 
•6.SP 
THIS LINE. 



f SP J 



J PERFORM RX INCOMPLETE ERROR MESSAGE REPORTING. 



t - 
6S: 



005234 
005442 



007025 
000006 



000016 
005136 



6t; 



10$: 



CLC 
ROR 

see 

ASL 
MOV 
MOV 
MOV 
MOV 
ASR 
ASR 
PRINTX 



MOV 
JSR 

TST 

INC 

TST 
BNE 
PASS 

ENDHSG 



R2 
8« 
R3 

TXRXLB(R3),R5 
R2. (SP) 
R5.R2 

CMCNTB(R5).R5 

R2 

R3 

♦EF9012,R3.R1 



(SP)*.R2 

PC.PRTLPR 

(R4)» 

R3 

R2 

6« 



JSR 



jCLEAR THE CARRY FOR THE FOLLOUING ROTATE. 

J SHIFT "RX NOT DONE" FLAG INTO CARRY. 

:SKIP PRINTING MESSAGE IF FLAG FOR LINE CLEAR. 

iSHlFT LINE • TO GIVE CORRECT TABLE OFFSET. 

iGET THE "ASSOCIATED" RECEIVE LINE OFFSET. 

J SAVE THE "RX NOT DONE" FLAGS ON THE STACK. 

I COPY THE ASSOCIATED TX LINE OFFSET. 

I GET THE TOTAL NUMBER OF EXPECTED CHARS. 

; SHIFT THE TABLE OFFSET TO GIVE A LINE NUMBER. 

; SHIFT TABLE OFFSET TO GIVE LINE NUMBER. 
.(R4).RS.R2 iREPORT NUMBER OF CHARS ON LINE. 

MOV R2.-(SP) 
MOV R5.-(SP) 
MOV (R4). (SP) 
MOV Rl, (SP) 
MOV R3.-(SP) 
MOV ♦EF9012. (SP) 
MOV ♦e.-OP) 
MOV SP.RO 
TRAP C»PNTX 
ADO •16. SP 

t RESTORE THE "RX NOT DONE" FLAGS. 

{REPORT CONTENTS OF LPR REGISTER FOR THIS LINE. 

I INCREMENT THE CHARACTER COUNTER TABLE. 

(INCREMENT THE LINE COUNTER. 

: CHECK THE "RX NOT DONE FLAGS". 

I IF MORE FLAGS SET. LOOP TO 00 OTHER LINES. 

I RESTORE THE CONTENTS OF THE GPRS. 

PC.8(SP)* {RETURN TO PREG05 S«ART. 



L10012: 



TRAP 



C»MSG 
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^466 

246 7 

2460 

244,9 

2470 

2471 

2472 

2475 

24 74 

24 75 
2476 
2477 
2478 
2479 
2480 
2481 
2462 
2485 
2484 

2485 015444 
015444 

2486 

2487 015444 

2488 015450 

2489 015454 
2490 

2491 

2492 015456 
015456 
015460 
015462 
015466 
015472 
0154 74 
015476 

2495 

2494 015502 
015502 
015502 



012700 000100 
046700 164506 
001012 



010146 
010246 

012746 006520 
012746 000005 
010600 
104414 

062706 000010 



104425 
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S8TTL GLOBAL ERROR REPORTING ROUTINE 



'ftJ K' 



ER9104 



THIS IS A GENERAL ERROR REPORTING SUBROUTINE UHICM RFPOBTc: a^mcccaA^' 



Rl 
R2 



VALUE TO BE PRINTED AFTER MSG AS 2 DECIMAL DIGIT<; 
ADDRESS OF MESSAGE TO PRINT FIRST ^^^^'^^ DIGITS. 



* 

• INPUTS: 
* 
* 

• OUTPUTS 
* 

• CALLING SEQUENCE 
* 
* 

• COMMENTS: THE MESSAGE IS PRINTED AS BASIC ERROR INTORMATION. 

• SUBORDINATE ROUTINES USED: NONE. 



A MESSAGES IS PRINTED AT THE OPERATOR CONSOLE. 

INCLUDE THE LABEL "ER9101" AS THE MESSAGE PQINTPB 
PARAMETER IN THE DIAG SUPER ERROR REPORT MACRO CALL. 



BGNMSG ER9101 



MOV ♦6IT06,R0 
BIC OPTION. RO 
BNE 2» 



ER9101: 



TRY TO CLEAR THE 

EXT'D ERROR REPORTING TLAG 

EXIT IF FLAG NOT SET. 



PRINTS ♦EF9006.R2.R1 jREPORT THE STRING FOLLOWED BY THE NUMBER. 



21: 



ENOMSG 



L10015: 



MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 



TRAP 



Rl. (SP) 

R2. "(SP) 

•EF9006. 

♦5.-(SP) 

SP.RO 

C»PNTB 

OlO.SP 



C»MSG 



(SP) 



M5 



cioeAt FfmoR AcPOftrirjG routine 
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2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
250/ 
2506 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2510 
2519 
2520 
2521 
2522 
2523 
2524 

2525 

2526 
2527 
2526 
2529 
2530 
2531 
2532 
2533 



2534 

2535 
2536 
2537 
2536 



015504 
015504 
015504 
015504 



015510 
015516 



015520 
015520 
015522 
015526 
015532 
015534 
015536 
015542 
015544 
015546 
015550 
015552 
015552 
015554 
015560 
015564 
015566 
015570 



.SeTTL GLOBAL ERROR REPORTING ROUTINE 



ER9102 



J* 



* 
* 

* 

* 
;* 
J* 

« 

* 

* 
* 

* 

J* 
s ♦< 



THIS IS AN ERROR REPORTING SUBROUTINE UHlCH PRINTS ADDITIONAL ERROR 
INFORMATION AFTER T« ERROR MESSAGE HEADER. PROVIDED EXTENDED ERROR 
REPORTING HAS BEEN REQUESTED. 

THIS ROUTINE IS PASSED A BIT MAP WHICH SPECIFIES THE LINES FOR WHICH 
THE ERROR CONDITION SHOULD BE REPORTED. 

II#»UTS: Rl ADDRESS OT THE MESSAGE TO BE PRINTED BY THIS ROUTINE. 

R2 - BIT MAP OF LINES FOR WHICH TO REPORT ERRORS. 

OUTPUTS: MESSAGES ARE PRINTED AT THF, OPERATOR CONSOLE, 



CALLING SEQUENCE: LOAD THE ADDRESS OF THE MESSAGE IN Rl. 

LOAD THE BIT MAP OF LINES WITH ERRORS IN R2. 
INCLUDE THE LABEL "ER9102" AS THE MESSAGE POINTER 

(ERRBLK) IN THE OIAG SUPER ERROR REPORT MACRO CALL, 

COMMENTS: THE OUTPUT FORMAT OF THIS MESSAGE IS: 
"TEXT MESSAGE POINTED TO BY Rl' 

"ERROR CONDITION ON LINE NN" 

"ERROR CONDITION ON LINE . . . ' 
THE TOP MESSAGE. AND THE MESSAGE FOR EACH LINE ARE PRINTED 
AS BASIC ERROR INFORMATION. 

SUBORDINATE ROUTINES USED: NONE. 



004567 167614 



BGNMSG 

SAVE 



ER9102 



JSR 



ER9102: : 
;SAVE THE CONTENTS OF THE GPRS. 
R5.PREG05 J CALL REGISTER SAVE SUBRT. 



EXIT IF EXTENDED ERROR REPORTING HAS NOT BEEN ENABLED 



032767 
001441 



010146 
012746 
012746 
010600 
104414 
062706 
005003 
000241 
006002 
103011 

010346 
012746 
012746 
010600 
104414 
062706 



000100 164444 



005530 
000002 



BIT ♦BIT06. OPTION 
BEG 60$ 



PRINTB •EF050S.R1 



sEXIT WITH TEST FAILURE MESSAGE IF 

iNO EXTENDED ERROR REPORTING HAS BEEN REQUESTED 

{DURING THE SOFTWARE QUESTIONS, 



000006 



2*: 



CLR 

CLC 

ROR 
BCC 
PRINTB 



R3 

R2 
41 

«£F9103.RS 



007311 
000002 



000006 



;PRINT THE FIRST LINE OF THE MESSAGE. 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

I CLEAR THE LINE NUMBER. 
iPREPARE TO ROTATE NEXT BIT OUT OF MAP. 
tGET THE NEXT BIT OF THE BIT MAP, 
iSKIP PRINTING MESSAGE IF THE BIT IS CLEAR 
{REPORT THIS LINE HAD THE ERROR. 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



Rl, (SP) 
♦EF0503. 
♦2. (SP) 
SP.RO 
CIPNTB 
♦6.5P 



R3. (SP) 
#EF9103. 
•2. (SP) 
SP.RO 
CIPNTB 
•6,SP 



(SP) 



(SP) 
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^b59 

2541 
2^2 



2545 
2544 



015574 
015576 
015600 
015602 
015602 
015606 
015612 
015614 
015616 
015622 
015622 
015624 
015624 
015624 



005205 
005702 
001361 

012746 007506 
012746 000001 
010600 
104414 

062706 000004 
004756 



104425 



4t : 



60$: 



INC R5 

TST R2 

BNE 2$ 

PRINTS •eF9101 



PASS 
ENOnSG 



JSR 



MOV ♦er9ioi. (sp) 

MOV Ol.-CSP) 
MOV SP.RO 
TRAP CIPNTB 

i?^lJ22^ ^'^^^^ CONTENTS OF TMeVrS.**'^** 

PC.aCSP). : RE TURN TO PREG05 SUBRT. 



L 10014: 



TRAP 



C»MSG 



B6 



OMU n *UHC TST PMT4 MNCNO m?00 



254« 

2551 
2552 
255S 
2554 
2555 
2556 
2557 
2550 
255^ 
2560 
2561 
2562 
2S6S 
2564 
2565 
2566 
2567 



15 fMR 64 09:48 
. ER9S01 - 



PAGE 50 



f J 



2568 

2569 
2570 
2571 
2572 
2575 
2574 



2575 
2576 

257 7 
2578 
2579 
2580 
2581 
2582 

258 S 
2584 
2595 
2586 
2507 
2568 
2569 
2590 
2591 
2592 
259S 



015626 
015626 
015626 
015626 

0156 S2 
0156 S6 
C 15642 

015644 
015644 
015646 
015652 
015656 
015660 
015662 
015666 
C15672 
015676 
015700 
015702 
015706 
015710 



004567 167472 



012700 
046700 
001064 



010146 
012^46 
012746 
010600 
104414 
062706 
012705 
012705 
012S01 
012504 
004767 
020502 
105772 



000100 
164520 



005530 
000002 



000006 
002512 
012651 



000056 



015712 
015716 
015720 
015724 
015726 
015750 
015/52 



020227 002706 
0010S6 

005762 000002 
001455 
012S01 
011504 

012705 012701 



.SBTTL GLOBAL ERROR REPORTING ROUTINE 



!• 

I* 
!• 
!• 
!• 
!• 
I* 
I* 
»• 
»• 
I* 
!• 
!• 
»• 
i* 
«•' 



THIS IS m ERROR REPORTING SUBROUTINE MHICM PRINTS ANT BMP COOES 
THAT ARE POUND IN T»C BI9 CODE QUEUE. TOGETHER WITH THE THE NUMBER 0*^ 
T»C TEST THAT HAS EXECUTING AT THE TIHE THE BNP CODE UAS LOGGED. 
PROVIOED EXTENDED ERROR REPORTING HAS BEEN ENABLED. 

Ill^TS: Rl T»C ADDRESS OF THE FIRST HESSAGE TO BE REPORTED. 

R2 - THE ADDRESS OF THE NEXT EMPTY CELL IN THE QUEUE. 

OUTPUTS: THE TEST NUMBER FOLLOWED 8t THE BMP CODE ARE PRINTED AT THE 

OPERATOR CONSOLE. 



CALLING SEQUENCE; 



INCLUDE THE LABEL "ER9501 ' AS THE MESSAGE POINTER 
PARAMETER IN THE OIAG SUPER ERROR REPORT MACRO CALL. 



COMMENTS: THE MESSAGE IS PRINTED AS BASIC ERROR INFORMATION. 
SUBORDINATE ROUTINES USED: NONE. 



BGI«1SG ER9501 



SAVE 



MOV 
BIC 
BNE 



JSR 



•6IT06.R0 
OPTION. RO 
601 



ER9301 : : 
sSAVE THE GPRS ON THE STACK. 
R5.PREG05 iCALL REGISTER SAVE SUBRT. 

jTRr TO CLEAR THE 

lEXT'O ERROR REPORTING FLAG 

I EXIT IF FLAG NOT SET. 



PRINTS #EF0505.R1 



21: 



MOV 
MOV 
MOV 
MOV 

JSR 
CMP 

BLO 



•BMPCQB.R3 
#EM9502.R5 

(R3).,R1 

(R3)..R4 

PC.50* 

R3.R2 

2% 



tRbPORT UNEXPECTED BMP COOES »0UN0. 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADC 

iGET THE START ADDRESS OF THE BMP CODE QUEUE. 
jGET THE MESSAGE TO BE REPORTED. 
iGET THE NUMBER OF THE TEST THAT UAS ExEHiTINb. 
(GET BMP CODE THAT UAS REPORTED OFF THE QUEUE . 
I GO REPORT THE BMP CODE. 
I CHECK IF ALL COOES HAVE BEEN REPORTED. 
J IF IT IS NOT THE LAST BMP CODE THEN LOOP. 



Rl. (SP) 
•EF0503. (SP"* 
♦2. (SP) 
SP.RO 
CtPNTB 
•6.SP 



CHECK IF OVERFLOU HAS OCCvjRREO. 
THE CONDITIONS FOR OVERFLOW ARE: THE POINTER CONTAINS THE ADDRESS 0» THE 
LAST CELL IN THE QUEUE, AND A BMP CODE HAS ALREADY BEEN URITTEN INTO THAT 
CELL. 



CMP R2,«flMPCQE 4 

BNE 60* 

TST 2(R2) 

BEO 60* 

MOV (R3).,R1 

MOV (R5).R4 

HOV •FM950S,RS 



jCHECK IF THE POINTER IS AT THE LAST LOCATION. 

jEXiT IF NOT AT THE LAST LOCATION. 

t CHECK FOR A BMP CODE IN THE LAST CELL 

jEXiT IF NO OVERFLOW HAS OCCURtO, CELL tMPT?. 

jGET THE TEST NUMBER OFF THE QUEUE. 

iGET THE BMP CODE OFF THE QUEUE. 

J SELECT THE MESSAGE TO BE REPORTED. 





015756 






0157S6 


012746 




015742 


012746 




015746 


010600 




015750 


104415 




015752 


062706 




015756 


004767 


^59' 


015762 


000414 






2599 015764 








010446 




015766 


010146 




015770 


010546 




015772 


012746 




015776 


012746 




016002 


01060C 




016004 


104415 




016006 


062706 


2600 


016012 


000207 


2601 


C16014 






016014 


004736 


2602 






2605 


016016 
016016 






016016 


104425 



007455 
000001 



000004 
000002 



PR INT X •Er9502 



JSR 
BR 



PC. 50$ 
60S 



iREPORi CVERFLOW CONDITION. 

MOV 
MOV 
MOV 
TRAP 

ADD n 

IexI?*^ PLACED ON THE QueCt 



•I. (SP> 
SP.RO 
C»PNTX 
#4,SP 



50«: PRINTX •EF9501.P5.Rl.R4 ,PRIN1 THE MESSAGE. 



007557 
000004 



000012 



601 i 



RTS 
PASS 



ENOMSG 



PC 



JSR 



i RE Turn 

iRESTORE THE GPR CONTENTS. 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



R4. (SP) 
Rl. (SP) 
R5. (SP) 
•EF9501. 
•4. .(SP) 
SP.RO 
CiPNTx 
♦12. SP 



PC.8{ SP). 



•RETURN TO PPEG05 SUBRT. 



L 10015: 



TRAP 



f SP ) 



C»MSG 



Db 
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.SBTTL GLOBAL SUBROUTINES SECTION 

1 THE GLOBAc SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
2617 I THAT ARE USED IN tlORE THA^ ONE TEST. 

2^1B t 



b6 



^6?0 

«e^s 

2t>24 
2b25 
2t>2b 
2*>27 
2*>2B 
2t2^ 

2t>y) 

2651 
26 32 
26SS 
26M 
26S5 
26S6 
26S7 
26Se 
26S4 
2640 
2641 
2642 
264 S 
2644 
2645 
2646 
264 7 
2646 

2649 
2650 
2651 
2652 
265 S 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
266S 
2664 
2665 
2666 
2667 
2666 
2669 
2670 
2671 
2672 
2675 
2674 
2675 



016020 
016020 



016024 
016026 
0160SO 
0160S2 



0160 S6 
016040 
016042 
016044 
016050 
016052 
016054 
016056 
016060 
016062 
016064 



004567 167S00 



010400 
005100 
040002 
016705 



164176 



000241 
006003 
105006 
010577 
011100 
040400 
050200 
010011 
005205 
005705 
001565 



164150 



.SeTTL GLOBAL SUBROUTINE 



At TFLD 



!* 

;* 
s* 

!• 
1* 
S* 

t* 
I* 

!* 

i* 
«* 

!♦ 
!• 
»• 
!• 

t* 
!• 

i - 



- ALTER DEVICE REGISTER FIELDS ROUTINE - 
THIS SUBROUTINE ALTERS THE SPECIFIED FIELD OF THE SPECIFIED DEVICE 
REGISTER FOR THE S«>ECIFIEO LINES, THIS ROUTINE CAN BE USED TO SET 
OR aEAR BITS WITHIN SELECTED FIELDS OF SELECTED REGISTERS. 
USE EXAMPLES: SET RX. BAUD. RATE FIELDS ON LINES 5 AKj 6. 
CLEAR TX.DHA BITS ON ALL LINES. 

II«>UTS: Rl - ADDRESS OF THE REGISTERS TO ALTER. 

R2 - BIT FIELDS SET TO DESIRED STATES. 
R5 BIT MAP OF LINES FOR WHICH TO ALTER REGISTER. 
R4 MASK OF BITS TO ALTER (I INDICATES CHANGE BIT). 
CSRA CONTAINS THE ADDRESS OF THE DEVICE CSR 
lESTAl - SAVED STATES OF THE INTERRUPT ENABLE BITS. 

OUTPUTS: OEVrCE REGISTERS - SPECIFIED REGISTER FIELDS ALTERED. 

CSR IND.ADR.9EG FIELD - DESTROTED. 



CALLING SEQUENCE: 



JSR 



PC. AL TFLD 



COMMENTS: THIS ROUTINE READS THE SPECIFIED REGISTERS FOR ALL LINES 
WITH NUMBERS LOWER THAN THE HIGHES SPECIFIED LINE. 
THIS ROUTINE DOES NOT READ THE CSR. 

SUBROUTINES CALLED: NONE. 



ALTF^D:: SAVE 



I SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 sCALL REGISTER SAVE SUBRT. 



SET UP TO LOOP FOR EACH LINE: 

PREPARE THE WORD TO BE OREO INTO THE REGISTER CONTENTS. 

SET UP THE WORD TO WRITE INTO THE IND.ADR.REG FIELD OF THE CSR. 

MOV R4,R0 jCALCULATE THE NEW CONTENT j OF THE 

COM RO t REGISTER FIELDS WHICH ARE TO BE 

BIC R0.R2 : ALTERREO BT THIS ROUTINE. 

MOV IESTAT,R5 jSET IJP TO WRITE IND.ADR.REG FIELD TO 0. 

LOOP ONCE FOR EACH LINE. ALTERING THE SPECIFIED FIELD IN THE SPECIFIED 
REGISTER IF THE LINE HAS BEEN SELECTED FOR ALTERING. 

EXIT THE LOOP IF NO MORE LINES TO ALTER. OR IF WE HAVE ALTERED THE MAX 
ALLOWABLE NUMBER OF LINES (AS SPECIFIED BY NUMLNS). 



2»! 



4ti 



CLC 
ROR 

BCC 
MOV 
MOV 
BIC 
BIS 
MOV 
INC 
TST 

BNC 



R3 
41 

RS.SCSi^A 

(Rl).RO 

R4.R0 

fla.flO 

RO.(Rl) 

R5 

R5 

21 



, PREPARE FOR ROTATE, "TST R5" ODES THIS BElOW. 

jGET THE LINE SELECT BIT FOR THIS LINE. 

J SKIP SETUP IF LINE IS NOT SELECTED. 

(SET OUT CSR IND.ADR.REG FIELD ^0 THIS LINE. 

iGET THE PRESENT CONTENTS OF THE REG TO ALTER. 

(CLEAR THE BIT FIELDS WE ARE TO ALTER. 

(OR IN THE NEW STATES OF TrC FIELDS. 

(WRITE THE NEW REGISTER CONTENTS TO THE REO. 

(SET LINE NUMBER TO THE NEXT LINE. 

(CHECK FOR UNMANDLEO LINES, CLEAR CARR» FLAG. 

(LOOP IF SELECTED LINE(S) IS N01 HANDLED. 



OIMM <»«756 .RESTORE GPRS. 

2b7B 016070 000207 «TS PC TfeyiS^fo COLLIHG ROUTN^^'^** ^° '^"^"^^ ^^-^^ 



G6 
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2680 
2681 
2682 
268S 
2664 
2685 
2686 
2687 
2668 
2689 
2690 
2691 
2692 
2695 
2694 
2695 
2696 
2697 
2696 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 

2709 
2710 
2711 
2712 
2715 
2714 
2715 
2716 
2717 
2716 
2719 
2720 
2721 
2722 
2725 
2724 
2725 
2726 
2727 
2726 
2729 
2750 
2751 
2752 
2755 
2754 
2755 



016072 
010072 
016076 



016106 
016110 
016116 
016122 
016124 
016126 
016150 
016152 



016154 
016140 
016142 



004567 
005067 



167e26 
000210 



016102 012705 000001 



005000 
012767 
005767 
001410 
005200 
001575 
005505 
005571 



005067 
000241 
000461 



000001 
164156 



164162 



164156 



.sent C OBAL SUBROUTINE 



CALMSL - 



* 

* 
* 
* 

I* 
»* 
{• 

!* 
»♦ 

* 

* 

* 

* 

* 

;* 

I* 
J* 
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- CALIBRATE MILLI SECOND LOOP COUNT SUBROUTINE 
THIS SUBROUTINE CALIBRATES THE TIHING LOOP WHICH IS USED IN THE MSLOOP 
ROUTINE. THIS SUBROUTINE CALCULATES A VALUE FOR THE MSLCNT VARIABLE 
WHICH IS THE NUMBER OF SOFTWARE LOOPS WHICH TAKES 1 MS TO EXECUTE IN 
THE MSLOOP ROUTINE. THIS ROUTINE CALIBRATES THE COUNT BY USING THE 
LINE TIME CLOCK (LTC). 30 IF NO LTC IS AVAILABLE THE DEFAULT VALUE FOR 
THE DELAY COUNT MOST BE USED. 



INPUTS: 



OUTPUTS: 



MSLCNT 

MSTICK 
TIMER 1 
CLKHRZ 

CARRY 
MSLCNT 



DEFAULT 1 MS DELAY LOOP COUNT VALUE. OR 
VALUE FROM PREVIOUS CALIBRATION. 

- NUMBER OF MS PER LTC CLOCK TICK. 

- TIMER COUNTER CHANGED BY LTC INTERRUPT SERVICE RTN. 

- NUMBER OF LTC CLICKS PER SECOND (50 OR 60). 

SET IF LTC IS AVAILABLE, ANO NEW CALIBRATION PERFORMED. 

- NEW 1 MS DELAY LOOP COUNT VALUE IF LTC AVAILABLE. OR 
UNCHANGED IF NO LTC IS AVAILABLE. 



CAI.LING SEQUENCE: 



JSR 



PC. CALMSL 



COMMENTS: 

SUBORDINATE ROUTINES CALLED: UNSOIV.OOPS. 



CALMSL:: SAVE 
CLR 



62 « 



JSR 



(SAVE CONTENTS OF GPRS RO THRU R5. 
R5,PREG05 (CALL REGISTER SAVE SUBRT. 

(CLEAR THE 2N0 TIME FLAG. 



, SYNCHRONIZE WITH THE LTC. 



2*: 



4): 



MOV 



CLR 
MOV 
TST 
BEQ 
INC 
BNE 
DEC 
BCT 



♦1.R5 



J SET OUTER LOOP COUNTER TO 1 LOOP. 
{INCREASE THE VALUE LOADED INTO THIS COUNTER IF THE <•* 
{FOLLOWING LOOP FAILS ON FUTURE. FASTER PROCESSORS. <•* 
RO (CLEAR THE WAIT FOR CLOCK INT COUNTER. 

•l.TIMERl {SET UP COUNT OF 1 TO SYNCH WITH LTC. 

TIMERl (CHECK FOR COUNTER HAVING GONE TO ZERO. 

6» (JUMP OUT OF LOOP IF LTC HAS INTERRUPTED. 

RO {COUNT THIS ITERATION OF THE INNER LOOP. 

4$ (LOOP IF COUNTER HAS NOT TURNED OVER. 

R5 (DECREMENT THE INNER LOOP COUNTER. 

4$ (LOOP IF OUTER LOOP COUNT NOT UP. 



I ♦ 
( 
{ 
t 



IF we COT NO LTC INTERRUPT. INDICATE THAT THERE IS NO LTC AVAILABLE 
LTC MUST BE FLAKEY. OR NOT REALLY AN LTC AT ALL. 



CLR 
CLC 
BR 



CLKHRZ 
60* 



{CLEAR LTC FREQUENCY WORD TO INDICATE NO LTC. 

{INDICATE FAILURE FOR RETURN. 

(BYPASS THE FOLLOWING CALIBRATION PROCEDURES. 



016144 012704 002500 



{ 
( 
{ 

it: 



WE ARE NOW SYNCHRONIZED WITH THE LTC. 
SET UP FOR THE CALIBRATION LOOP. 



MOV 



<^TIMER1.R4 



(WILL TEST TIMERl IN THE LOOP BELOW. 



no 



nACftO ni?i 
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27 Ht 
27S7 
27U 
2739 
27*0 
2741 
2742 
2745 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2755 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2765 
2764 
2765 
2766 
2767 
2768 
2769 
27 ro 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2785 
2784 

2785 
2786 
2787 
2788 



016150 
016152 
016154 
016156 

016162 
016166 
016170 
016174 
016176 
016200 
016202 
016204 
016206 
016210 
016212 
016214 



016220 
016222 
016226 
016250 
016252 
016254 
016256 
016240 
016242 
016244 
016246 



016250 
016254 
016256 
016260 
016264 
016266 
016272 
016276 
016302 
016304 

016506 
016506 
016510 

016512 
016514 



005001 
005002 
005005 
012714 

016705 
011400 
010067 
040200 
020005 
000261 
001406 
005505 
001567 
005501 
001565 
004767 



005401 
016702 
010205 
160502 
010204 
005005 
003501 
100405 
060504 
005505 
000775 



016701 
010405 
010502 
004767 
105402 
004767 
010167 
005167 
001277 
000261 



004756 
000207 

000000 
000000 



000001 
164124 
000120 



8t: 
10«: 



005604 



CLR 


Rl 


iClewj the outer loop counter. 


Pi D 




















MCI f*MT O^^ 






( OA '\ RO 






on f^t 

"V t • 




DXw 


R? RO 


• 1 PAVP Al 1 THP nTT<; 




Rn O'K 




<*pr 




«^PT TARRY TM PA^P OT ^lirrp^<; 


RPO 
ocu 


lev 


• PXTT i nop TP TTMFR1 HA^ Pi PARPfl 


DEC 


R5 


t COUNT DOWN THE INSIDE MS LOOP COUNT. 


BNE 


lot 


jLOOP IF MS NOT UP. 


DEC 


Rl 


lOECREMENT THE MS TII€ COUNT. 


B»C 




{KEEP LOOPING. 


JSR 


PC. OOPS 


:UE OVERFLOWED. SOMETHING IS WRONG. ABORT 



164064 



t WE HAVE ttOU HAVE LOOP COUNT INFORMATION FOR ONE CLOCK TICK. 

t WE HAVE NEGATIVE OF NUMBER OF OUTER ' OOPS IN Rl. EACH IS MSLCNT INNER LOOPS. 

I U£ HAVE THE PORTION OF THE LAST OUTER LOOP NOT EXECUTED. IN R5. 

J NOW WE CALCULATE THE TOTAL NUMBER OF INNER LOOPS EXECUTED. 

12* : NEG Rl iCET NUMBER OF OUTER LOOPS. 

MOV MSLCNT, R2 sGET THE NUMBER OF INNER LOOPS PER OUTER LOOP. 

MOV R2.R5 jCOPY NUMBER OF LOOPS FOR MULTIPLY. 

SUB R5.R2 :CALC • OF INNF.R LOOPS DONE IN LAST OUTER LOOP 

MOV R2.R4 : AND ADD TO ACCUMULATOR LSWORD. 

CLR H5 ; CLEAR ACCUMULATOR MSWORD. 

DEC Rl i CHECK Rl FOR 0 CONDITION 

BMI 161 t SKIP MULTIPLICATION IF ZERO 

ADO R3.R4 ;MULTIPLY NUMBER OF INNER 

ADC R5 ) LOOPS PER OUTER LOOP BY 

BR 14$ I NUMBER OF OUTER LOOPS PERFORMED. 



14«: 



DIVIDE THE TOTAL NUMBER OF INNER LOOPS BT THE NUMBER OF MS PER L^C TICK 



164054 



010076 

005552 
164014 
000010 



{ - 

16»: 



18*: 



60t: 



62»; 
64*; 



MOV 
MOV 
MOV 
JSR 
BCS 
JSR 
MOV 
COM 
BNE 
SEC 

PAiS 

RT5 

.WORD 
.WORD 



MSTICK.Rl 

R4.R5 

R5.R2 

PC.UNSOIV 

18* 

PC. OOPS 
Rl. MSLCNT 
62* 
2* 



J ♦ OF MS PER LTC TICK IS DIVISOR. 
tLSWORD OF LOOP COUNT IS LSWORD OF DIVIDEND. 
;MSWORD OF LOOP COUNT IS MSWORD 'X DIVIDEND. 
:DIVIDE NUMBER OF LOOPS BY MS PER LTC TICK. 
: BYPASS OOPS IF WE'RE OK. 

i CLOCK ROUTINES ARE NOT LONG ENOUGH. OR BUG. 

tSET NEW VALUE FOR MS LOOP COUNT. 

iSET THE 2N0 ITERATION FLAGS IF 1ST ITERATION. 

iBRANCH IF ONLY ONE ITERATION D0(«. 

;SET THE SUCCESS FLAG FOR EXIT. 



PC 

0 
0 



JSR 



: RESTORE GPRS. 
PC,8(SP)» 

t CARRY - SUCCESS FLAG. 



I RE TURN TO PREGOS SUBRT. 
SET IF SUCCESS. 



i2N0 CALIBRATION ITERATION FLAGS. 

i DUMMY WORD FOR STORAGE OF THE READ WORD. 



MACRO '^l^^^li***" 94 C«:48 
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^790 
27<il 

279$ 
27^ 
27Wi 
2796 
?797 
279B 
2799 
2900 
i90l 
290? 
260» 
2604 
2605 
260e 
2907 
2606 
2609 
2610 
2611 
2612 
281S 
2614 
2615 
2616 
2617 
2616 
2819 

2620 
2621 
2622 
2625 
2624 
2625 
2626 
2627 
2626 
2629 
2650 
2651 
2852 
2655 
2654 
2855 
2856 
2657 
2858 
2859 
2640 
2641 
2642 
2843 
2844 
2«45 



.sent GLOBAL SUBROUTINE 



C>«<EXT 



CHECK FOR EXTRA CHARACTER ROUTINE • 
THIS SUBROUTINE CHECKS FOR THE CONDITION WHICH INDICATES THAT AN ExTRA 
CHARACTER HAS BEEN RECEIVED DURING THE RECEPTION OF A DATA PATTERN. 
IF THIS ROUTINE DETERHINES THAT IT IS LIKELY THAT AN EXTRA CHARACTER 
HAS BEEN RECEIVED IT INDICATES THIS IN THE STATUS IN^^ORHATION RCTiJRNEO 
TO THE CALLING ROUTINE. 



INPUTS: 



OUTPUTS: 



R3 - RX LINE NUMBER MULTIPLIED BY 2 (OFFSET INTO WORD TABLES). 

R4 - BASE ADDRESS OF RESYNC QUE CONTAINING RX CHARS. 

R5 MASK OF "INACTIVE" CNON-DATA) BITS OF RX AND TX CHARS. 

CHCNTB BASE OF NUMBER OF CHARS TO TX ON EACH LINE TABlC . 

RXCNTB BASE OF THE RX CHARACTER COUNTERS TABLE. 

RXPTRB - BASE OF THE RX CHARACTER POINTERS TABLE. 

TXRXLB - BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 

CARRY - SET IF EXTRA CHARACTER CONDITION IS VERIFIED. 



CALLING SEQUENCE; 



JSR 



PC.CMKEXT 



t 

( - 



016516 






CHKEXT:: SAVE 




016516 


004567 


167002 




JSR 


016522 


016502 


005402 


MOV 


RXPTRB(R3),R2 


016326 


005724 




TST 


(R4)* 


016550 


012400 




MOV 


(R4)*.R0 


016552 


100026 




BPL 


52 1 


016554 


040500 




BIC 


RS.RO 


016556 


112201 




MOVB 


(R2)».R1 


016540 


040501 




BIC 


R5,R1 


016542 


120100 




CMPB 


Rl.RO 


016544 


001021 




BNE 


52 » 


016546 


016500 


005542 


MOV 


RXCNTBCR3),R0 


016552 


005200 




INC 


RO 


016554 


016501 


005254 


MUV 


TXRXLB(R3).R1 


016560 


020061 


005442 


CMP 


RO.CHCNTBCRl) 


016564 


001407 




BEO 


50* 


016566 


011400 




MOV 


(R4).R0 


016570 


100005 




BPL 


50* 


016572 


040500 




BIC 


RS.RO 


016574 


111201 




MOVB 


(R2>.R1 


016576 


040501 




BIC 


R5.RI 


016400 


020001 




CMP 


RO.Rl 


016402 


001002 




BNE 


52* 



COMMENTS: THE FXLOUING SYMBOLS ARE USED IN LINE COMMENTS: 

CHRO - CHARACTER AT BOTTOM OF RESYNC QUE (FIRST RECEIVED). 
CHRl. CHR2 - 2 CHARACTERS RECEIVED AFTER CHRO. 
EXPO - CHARACTEP EXPECTED TO BE RECEIVED NEXT. 

EXPl. EXP2 - CHARACTER EXPECTED TO BE RECEIVED AFTER EXPO. ETC. 

SUBORDINATE ROUTINES CALLED: NONE. 

I SAVE CONTENTS OF GPRS RO THRU R5. 
RS.PREG05 (CALL REGISTER SAVE SU8R^ . 

GET THE RX DATA POINTER. 
INCREMENT R4 BY 2 TO POINT TO CHRl. 
GET CHRl ~ROH THE QUE. DATA. VALID INTO N FLAG. 
EXIT WITH "FAILURE" IF CHRl NOT VALID. 
REMOVE INACTIVE BITS FROM CHRl VALUE. 
GET EXPO FROM THE DATA PATTERN. 
REMOVE INACTIVE BITS FROM EXPO VALUE. 
COMPARE CHNl AND EXPO. 
EXIT WITH "FAILURE" IF CHRl »> EXPO. 
COMPARE THE PRESENT RX CHARACTER COUNT PLUS I 
WITH THE EXPECTED NUMBER OF CHARS TO RX ON 
LINE (NUMBER TRANSMITTED AND LOOPED BACK) TO 
DETERMINE IF CHRl Is LAST EXPECTED CHAR. 
EXIT WITH "SUCCESS" IF CHRl IS LAST CHAR. 
GET CHR2 FROM THE QUE. DATA. VALID INTO N c'LAG. 
EXIT WITH "SUCCESS" If CHRl WAS LAST IN QUE. 
REMOVE INACTIVE BITS FROM C.«2 VALUE . 
GET THE EXPl VALUE. 

REMOVE INACTIVE BITS FROM EXPl VALUE. 
COMPARE CHR2 AND EXPl. 
EXIT WITH "FAILURE" IF CHR2 <» ExPl. 



t IT IS LIKELY THAT WE RECEIVED AN EXTRA CHARACTER WITHIN THE DATA PATTERN. 

i INDICATE "SUCCESS" AND EXIT. 

i 



OMU 11 fUNC TSI PA«T4 
GLOBAL StSROUriME 



?S46 016404 

2647 016406 

2648 

2649 

26^ 

2B51 

2»i2 

29iS 016410 
2854 

^895 016412 
016412 
<^856 016414 



000261 
000401 



000241 



0047S6 

000207 



MACRO ril200 IS HAR 04 0<>:48 
CMKCxr 



50$: 



sec 

BR 
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60S 



'40 f* 



:SET THE SUCCESS rcAG. 
;EXIT THE ROUTINE. 



i UE DIDN'T RECEIVE A SINGLE EXTRA CHARACTER AT THIS POINT IN THE DATA PATTERN. 
J INDICATE FAILURE- AND EXIT. 



52* : 
60»: 



CLC 
PASS 
RTS 



PC 



JSR 



:ClEAR the SUCCESS FLAG, 
s RESTORE GPRS. 

PC.aCSP)* iRETURN TO PREG05 SU8RT . 

;CARRr SET IF SUCCESS (EXTRA CHAR RXEO;. 



PM}T4 
INE 



^6b6 

?062 
2663 
2864 
266S 

2667 
2868 
2869 
2870 
2871 
2872 
2875 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2686 
2887 
2668 

2689 
2890 
2891 
2892 
2893 
2894 
2695 
2696 
2897 
2896 
2699 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2915 
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.5eTTL GLOBAL SUBROUTINE 



CMKLOS 



CKCCK FOR LOST CHARACTER ROUTINE - 
THIS SUBROUTINE CHECKS FOR THE CONDITION UHICh INDICATES THAT A CHAR 
HAS BEEN "LOST" FROM T»C LOOPED BACK DATA PATTERN DURING A TRANSMISSION 
AND RECEPTION TEST. IF THIS ROUTINE DETERMINES THAT IT IS LIKELY THAT 
A CHARACTER HAS BEEN LOST. IT INDICATES THIS IN THE STATUS IITORMATION 
RETURNED TO THE CALLING ROUTINE. 



INPUTS! 



OUTPUTS: 



R3 RX LINE NUMBER MULTIPLIED BY 2 COFFSET INTO WORD TABLES). 

R4 BASE ADDRESS OF RESYNC QUE CONTAINING RX CHARS. 

R5 MASK or "INACTIVE" CNON-DATA) BITS OF RX AND TX CHARS wITh 

ALL SET BITS IN A SINGLE. LEFT JUSTIFIED GROUP. 
ChCNTB base of NUMBER OF CHARS TO TX ON EACH LINE TABLE. 
RXCNTB - BASE OF THE RX CHARACTER COUNTERS TABLE. 
RXPTRB BASE OF THE RX CHARACTER POINTERS TABLE. 
TXRXLB - BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 

CARRY - SET IF LOST CHARACTER CONDITION IS VERIFIED. 



CALLING SEQUENCE: 



JSR 



PC. CHKLOS 



016416 






CHKLOS: : SAVE 




016416 


004567 


166702 




JSR 


016422 


016301 


003542 


MOV 


RXCNTB(R3).R1 


016426 


005201 




INC 


Rl 


016430 


016300 


005234 


MOV 


TXRXLBCR3).R0 


016434 


016002 


003442 


MOV 


CmCNTBCR0>,R2 


016440 


020102 




CMP 


R1.R2 


016442 


001423 




BEQ 


52* 


016444 


005201 




INC 


Rl 


016446 


160201 




SUB 


R2.R1 


016450 


016302 


003402 


MOV 


RXPTRB(R3).R2 


016454 


005202 




INC 


R2 


016456 


112200 




Move 


(R2)».R0 


016460 


162400 




SUB 


(R4).,R0 


016462 


040500 




BIC 


R5.R0 


016464 


001012 




BNE 


52* 


016466 


005701 




TST 


Rl 


016470 


001406 




BEQ 


501 


016472 


011401 




MOV 


(R4).r; 


016474 


100004 




BPL 


501 


0164 76 


111200 




MOVB 


(R2).R0 


016500 


160001 




sue 


RO.Rl 


016502 


040501 




eic 


R5.R1 


016504 


001002 




BNE 


521 



COMMENTS: THE FOLLOWING SYMBOLS ARE USED IN LINE COMMENTS: 

CMRO - CHARACTER AT BOTTOM OF RESYNC QUE (FIRST RECEIVED). 
CHRl. CHR2 - 2 CHARACTERS RECEIVED AFTER CHRO, 
EXPO - CHARACTER EXPECTED TO BE RECEIVED NEXT. 

EXPl, EXP2 - CHARACTER EXPECTED TO BE RECEIVED AFTER EXPO. ETC. 

SUBORDINATE ROUTINES CALLED: NONE. 

I SAVE CONTENTS OF GPRS RO THRU R5. 
R5.PREG05 jCALL REGISTER SAVE SU8RT. 

J COMPARE THE PRESENT RX CHARACTER COUNT PLUS 1 
s WITH THE EXPECTED NUMBER OF CHARS TO Rx ON 
a LINE (NUMBER TXED AND LOOPED BACK) TO 
; DETERMINE IF THE POSSIBLE LOST CHAR 
s WOULD at THE LAST EXPECTED RX CHAR. 
;EXIT WITH -FAILURE" IF LOST CHR WOULD BE LAST. 
! DETERMINE (AS ABOVE) IF CHRO WOULD BE THE CAST 
i RX CHAR AND SAVE RESULT FOR LATER, 
iGET THE RX DATA POINTER. 
sCALCULATE POINTER TO EXPl LOCATION. 
jGET EXPl VALUE FROM DATA PATTERN. 
J COMPARE CHRO AND EXPl VALUES. 
sREMOVE INACTIVE BITS FROM RESULT. (NO ACTIVE 
; BITS ALLOWED TO LEFT OF ANY INACTIVE BITS.) 
lEXlT WITH "FAILURE" IF CHRO <> EXPl. 
J CHECK CHRO TEST RESULT SAVED ABOVE. 
jEXiT WITH "SUCCESS" IF CHRO IS LAST CHAR. 
jGET CHRl FROM THE QUE. DATA. VALID INTO N FLAG. 
J EX IT WITH "SUCCESS" IF CHRO WAS LAST QUE CHAR. 
iGET THE EXP2 VALUE FROM THE DATA PATTERN. 
: COMPARE THE EXP2 AND THE CHRl VALUES. 
{REMOVE INACTIVE BITS FROM RESULT OF COMPARE, 
s (NO ACTIVE BITS LEFT OF INACTIVE BIT^. ) 
jEXiT WI^H "FAILURE" IF CHRl «» EyP2. 



P/MT4 MACRO Hl^l 



15 rvw 84 (y*;*6 
>«LOS 
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^914 

2*17 

2^16 016506 000261 

2919 016510 000401 

2920 

2921 

2922 

2925 

2924 

2925 016512 000241 
2926 

2927 016514 

016514 004736 

2926 016516 000207 



IT IS LlKtL» THAT UE LOST A CHARACTER FROM THE DATA PATTERN. 
INDICATE ■ SUCCESS" AND EXIT. 



50t: 



SEC 
BR 



6C< 



jSET THE SUCCESS FLAG. 
{EXIT THE ROUTINE. 



; UE DIDN'T LOSE A SINGLE EXTRA CHARACTER AT THIS POINT IN THE DATA PATTERN 
t INDICATE "FAILURE- AND EXIT. 
I - 

52»: CLC s CLEAR THE SUCCESS FLAG. 



60<: 



PASS 

RTS 



PC 



I RES TORE GPPS. 

JSR PC.aCSP)* I RE TURN TO PREG05 SUBRT, 

;CARRr SET IF SUCCESS (LOST CHAR LIKELY). 



M6 
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2950 
29SI 
29iZ 
295S 
2954 
2915 
2936 
29S7 
2959 
2959 
2940 
2941 
2942 
2945 
2944 
2945 
2946 
2947 
294$ 
2949 
2950 
2951 
2952 
295: 
2954 
2955 
2956 
295 7 
2958 
2959 
2960 
2961 
2962 
296 S 
2964 
2965 

2966 
2967 
2966 
2969 
2970 
2971 
2972 
2975 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2961 
2962 
2985 
2984 
2985 



016520 
016520 



016524 
016552 



004567 166600 



056567 
001407 



002564 165752 



016554 
016540 
016542 
016544 
016550 



012701 
011402 
040502 
052704 
000452 



011506 
100000 



.SBTTL GLOBAL SUeftOuTINE 



CKCMR 



4 • • 

!* 

i • 

f 

i* 

S* 

»• 

!* 

s* 

J* 

I* 

J* 
»• 
I* 
s* 

!• 

J* 

!• 

;* 
s* 
;* 

I* 
i* 



CHECK CHARACTER FOR ERRORS ROUTINE - 
THIS SUBROUTINE CHECKS THE CHARACTER AT THE BOTTOM QT THE RESTNC QUEUE 
TO OETERHINE IF IT IS CORRECT. POINTERS AND COUNTERS UHICH ARE RELATED 
TO THE RECEPTION OF THE CHARACTER ARE UPDATED. IF THE CHARACTER IS 
INCORRECT. AN ANALYSIS OF THE ERROR IS DONE AND PARAMETERS ARE SET UP 
FOR THE REPORTING OF THE CORRECT ERROR. 



IM>UTS: 



OurPUTS: 



R5 LINE OFFSET FOR ACCESS OF WORD TABLES OF LINE VARIABLES. 

R4 BASE ADDRESS OF THE RESYNC QUEUE FOR THIS LINE. 

R5 HASK OF THE INACTIVES BITS IN A Tx OR RX CHAR BYTE. 

BITTBL - TABLE OF WORDS WITH BITS SET FOR USE IN FORMING MAPS. 

DPRSQ - DATA PATTERN RESYNC QUE UITH VALID CHAR AT BOTTOM. 

EXCNTB - BASE OF THE EXTRA CHARACTER COUTERS TABLE. 

RXDONF - RECEIVE DONE FLAGS. 

RXPTRB - BASF OF THE RX CHARACTER POINTERS TABLE. 
ERROR MESSAGE LABELS - EM9007.EM9008.EM9027.EM9028 

Rl - CONTAINS THE ADDRESS OF THE ERROR MESSAGE TO BE REPORTED. 
R2 - CONTAINS THE ACTUAL RECEIVED DATA. 
R4 CONTAINS THE EXPECTED DATA. 

CARRY - "SUCCESS" FLAG (SET IF NO ERROR IS FOUND). 
FOLLOWING VARIABLES UPDATED FOR LINE ON WHICH CHAR WAS RECEIVED: 
EXCNT ' COUNT OT THE NUMBER OF EXTRA CHARS RECEIVED ON LINE. 
RXCNT COUNT OF THE NUMBER OF CHARACTERS RECEIVED ON LINE. 
RXPTR UPDATED TO POINT TO ihE NEXT EXPECTED CHAR ON LINE. 
ERR8LK - CONTENTS DESTrOY^D. 



JSR 



PC.CKCHR 



CALLING SEQUENCE: 
COMMENTS: 

SUBORDINATE ROUTINES CALLED: CHKEXT .CHKLOS.UPOCHR. 



CKCHR : : SAVE 



J SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 tCALL REGISTER SAVE SUBRT. 



I » 



016552 016502 005402 



CHECK FOR THE RX OF A CHAR AFTER RX SHOULD BE COMPLETE ON THIS LINE. 

*' BIT BITTBL(R5),RX00»* jTEST THE RX DONE FLAG FOR THIS LINE 

BEQ 2« iSKiP ERROR REPORT IF RX NOT COMPLETE ON LINE. 

I'wE HAVE RECEIVED AN EXTRA CHARACTER ON THIS LINE. 

] SET UP FOR ERROR REPORT AND EXIT TO REPORT THE ERROR. 

i COUNT THE EXTRA CHARACTER. 

I EXIT TO REPORT "UNEXPECTED CHAR RECEIVED AFTER RX COMPLETE ON LINE NN" 

MOV ♦eM9007.Rl jSELECT "EXTRA CHAR ON LINE" ERROR MESSAGE. 

MOV (R4).fl2 iGET THE ACTUAL DATA FOR ERROR REPORT. 

BIC R5.R2 J REMOVE THE INACTIVE BITS. 

BIS #BIT15.R4 iINDICATE "NONE" EXPECTED DATA FOR ERROR RPT. 

BR 12$ iGO COUNT EXTRA CHAR AND EXIT WITH 'FAILURE' . 

!*GET THE POINTER TO THE NEXT EXPECTED RECEIVE DATA CHARACTER. 

2$: MOV RXPTRBCR5).R2 



N6 
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111 901 
















VXw^ 'V 
















2997 






2998 






2999 






3000 






3001 


016600 


004767 


3002 016604 


103010 


3003 






3004 






3005 






3006 






3007 






3008 


016606 


012701 


3009 


016612 


111200 


3010 


016614 


040S00 


3011 


016616 




3012 


016620 


V**V JVC 


3013 016622 


01fWV)4 


3014 


016624 




3015 






3016 






3017 






3018 






3019 






3020 


016626 


0047ft7 


3021 


016632 




3022 






3023 






3024 






3025 






3026 






3027 






3028 


016634 


012701 


3029 016640 


111900 


3030 016642 




3031 


016644 


011402 


3032 


016646 


040^0P 

V JVC 


3033 016650 


010004 


3034 


016652 


004767 


3035 016656 


000404 


3036 






3037 






3038 






3039 






3040 


016660 


010002 


5041 


016662 


010104 


3042 


016664 


012701 



5 COMPARE THE ACTUAL DATA UITM THE EXPECTED DATA, 

MOV CR4).R0 ;GeT THE ACTUAL DATA. 

big r5.r0 jremove the inactive bits. 

movb (r2).r1 jget the expected data. 

sic r5.r1 ;remgve the inactive bits. 

cmpb ro.rl jcompare actual and expected, 

bne 41 ; check further if data miscompare. 

jsr pc.updchr j update ptrs and counters for the char, 

br 501 jexit with "success". no error found. 

! actual and expected data miscompare. 

s determine if it's likely ue received an extra char within the data pattern. 

41: jsr pc.chkext j check for extra char rx'ed in pattern. 

bcc 6» jgo check for lost char if no extra char. 

' it is likely that we received an extra character within the data pattern, 
count the char as an extra char. don't count as a standard char, 
report "extra char received within data pattern on line nn" 

mov #em9027,rl -.select "extra char on line" error msg. 

movb (r2).r0 ;get the expected receive data, 

bic r5.r0 {remove the inactive bits from expected data, 

mov (r4).r2 ;get the actual receive data, 

bic r5.r2 {remove the inactive bits from actual data, 

mov r0.r4 ipass expected data to error report routine, 

br 12* igo count extra char and exit with "failure' . 

Tactual and expected data miscompare. 

; not likely that ue received an extra character within the data pattern, 
i determine if it's likely ue lost a character from the data pattern. 

6*: jsr pc.chklos ;check for a lost char condition. 

bcc 8t igo report bad rx data if not lost char. 

i it is likely that ue lost a character from the data pattern, 
t count the char in the rx char count as if it had been received, 
s also. count chro as a valid char. because ue have verified it above, 
i report "single char missing from received data on line nn" 

MOV •EM9028,R1 jSELECT "LOST CHAR ON LINE" ERROR MSG. tt»tt 

MOVB CR2).R0 (GET THE EXPECTED RECEIVE DATA. 

BIC R5.R0 iREMOVE THE INACTIVE BITS FROM EXPECTED DATA. 

MOV CR4).R2 iGET THE ACTUAL RECEIVE DATA. 

BIC R5.R2 iREMOVE THE INACTIVE BITS FROM ACTUAL DATA. 

MOV R0,R4 tPASS EXPECTED DATA TO ERROR REPORT ROUTINE. 

JSR PC.UPDCHR (UPDATE PTRS ANO COUNTERS FOR THE CHAR. 

BR 10» jGO EXIT UITH "FAILURE". 

i DID NOT LOSE OR GAIN A SINGLE CHARACTER FROM/TO THE DATA PATTERN. 
: REPORT 'RECEIVED CHAR MISCOMPARE AGAINST TX DATA ON LINE NN" 

i - 
8$; 



MOV 
MOV 
MOV 



R0.R2 
R1.R4 
«£M9008,RL 



PASS ACTUAL DATUM TO ERROR REPORT ROUTINE. 
PASS EXPECTED DATUM TO ERROR REPORT ROl*riN€ 
SELECT THE "DATA MISCOMPARE" MESSAGE. 



onu u roNC rsr pmia 
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5045 
5044 
5045 
5046 

504 r 
5040 
3049 

5050 
S05t 
5055 
5055 
5054 
f055 
5056 
5057 
5056 
505<» 
5060 
5061 
5065 
5065 
5064 
5065 
5066 



5067 
5066 
5069 
5070 



016670 
016674 



016676 
016702 
016704 



016710 
016715 



004767 
000405 



005265 
001002 
005565 



000241 
000401 



016714 000261 



016716 
016 716 
016722 
016726 
0167S2 



010166 
010266 
010466 
004756 



007622 

005242 
005242 



000004 
000006 
000012 



t UPDAffe THt CMA;tACrER COiJNTER AND RX DATA PATTERN POINTER TOR ThIS LINE. 

Lo<: JSR PC.UPOC»« lUPOATE RX PTR AND COUNTER FOR THIS LINE 

BR 14< iGO EXIT WITH "fAII URE' . 



t 

12<: 



t COUNT THE CHARACTER AS AN EXTRA CHARACTER 

INC 
ME 
OEC 

FAILURE" AND EXIT 



EXCNT8(R5) 
141 

EXCNTB(R5) 



I INDICATE 

U<: CLC 

BR 60< 

!'nO error was FOUND. 

I SET "SUCCESS" FLAG AND EXIT. 

io»: SEC 



60<: 



PASS 



R1.R2.R4 



MOV 
MOV 
MOV 
JSR 



1 INCREMENT THE EXTRA CmAR COUNT FOR THIS LINE. 
lExlT WITH FAILURE IF NO OvERKOU. 
lOECREMENT BACK TO 1 (MAX VALUE) IF OVERFLOW. 



I CLEAR THE "SlCCESS ' FLAG. 
lEXIT THE RCjTINE.. 



I SET THE SUCCESS - FLAG. 



iRESTQRE GPRS. EXCEPT 
Rl.RlSLOT(SP) 
R2.R2SL0T(5P) 
R4.R4SL0T(SP) 
PC.a( SP). 
iRl 
|R2 



»P»JT Rl IN STACK SLOT. 
jPUT R2 IN STACK SLOT. 
jPUT R4 IN STACK SlOT. 
iRETURN TO PREG05 SUBRT, 
CONTAINS THE ADDRESS OF THE ERROR REPORT. 
CONTAINS THE ACTUAL DATA RECEIVED. 



0167S4 000207 



RTS 



PC 



|R4 CONTAINS THE EXPECTED DATA. 



50:* 








50^5 
50*4 














50 75 








W76 








507," 








50^8 

50?"» 














5060 








500 X 








509^ 








5C05 








5094 








50<I5 








5066 








5067 








5066 








5069 








5090 








5091 








5092 








5095 








5094 








5095 








5096 








5097 








AAA a 

5098 








5099 








5100 








5101 


016756 








016756 
016742 


004567 


166562 


9102 


016704 


166550 


9105 


016746 


004767 


4Af 

006706 


5104 








5103 








910VI 








5107 








910B 


016752 


A ■ ^ Y A • 

016701 


165270 


910^ 


016756 


A^X 1^ ^ 

026767 


• A VC •XA 

165520 


9110 


016764 


001402 




9111 


016766 


062701 


000062 


9112 


016772 


052701 


170000 


• 111 

3113 


016776 


Ate Y A ^ 

016702 


1 e V '^AA 

165200 


9114 


017002 


AAA 9 

004767 


A t AAA A 

010004 


31 13 


017006 


4 AVAKA 

109054 




3 lie 








5117 


A 4 Y A • A 

017010 


005567 


165462 


V 4 4 • 

9116 


At HAt ^ 

017014 


001014 




V 4 4 a 
9119 


A 4 ^ A • ^ 

01 7016 


A t AAA V 

010467 


166274 


9120 


A t YA 

017022 


A • A • 

012701 


A ■ 'U^A t 

012001 






vie 'D ' 




5122 








5125 








5124 








3125 








5126 


017054 







£«TTL dOBML SUBROUTINE 



CKFRPR 



CHECK fRAniNG AND PARITY LRROR REPORT IMG 
THIS SUBROUTINE IS USED IN THE FRAMING ERROR AND PARITY ERROR TESTS. 
IT READS THE CHARACTERS FROM THE OUT RECEIVER CHARACTER ri»0. 
A»0 CHECKS FOR THE CORRECT COHBINATION OF PARITY AND FRAriING 
ERROR BITS IN THE MSB. IF CHARACTERS STOP APPEARING IN THE FIFO WITH 
DATA. VALID SET OR IF HORE THAN THE ALLOWABLE NUTOCR OF CHARACTERS 
HAS 6EEN READ FROM THE DOT THIS ROUTINE EXITS WITH AN RX COMPLETE 
INDICATION. EACH READ CHAR IS ANALYSED AND ANY NECESSARY ERRORS ARE 
REPORTED, 



INPUTS: 



OUTPUTS: 



R5 TEST fLAG. BIT15 SET ■ FRAMING ERR. Cl EAR • PARITY ERR. 
ERRNBR SET TO ERROR NUMBER OF FIRST ERROR IN THIS ROUTINE. 
OSTENO - ADDRESS OF THE END OF THE OUTPUT STORAGE FIFO BUFFER. 
OSTPTR POINTER TO THE NEXT ByTE TO READ FROM OSTORE. 



RXCNTB 
RXPNTB 



RECEIVE CHARATER COUNT UPDATED FOR EACH LINE. 
RECEIVE CHARACTER PIONTER IS UPDATED FOR EACH LINE. 



CALLING SEQUENCE: 



JSR 



PC , CKFRPR 



COMMENTS: THIS ROUTINE REPORTS ERRORS WITH NUMBERS INITIAL ERRNBR 
THRU INITIAL ERRNBR • 4. 

ERRNBR IS RESTORED BEFORE THIS ROUTINE RETURNS. 
SUBORDINATE ROUTINES CALLED: PRFRME.PRPARE .UAIBIS. 



CKFRPR:: SAVE 



MOV 
JSR 



I SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG0S iCALL REGISTER SAVE SUBRT. 

ERRNBR. R4 > PRESERVE THE INITIAL ERROR NUMBER. 

PC.TXIEI lENABLE TX INTERRUPTS. 



I ♦ 
I 
I 
i 



WAIT FOR A CHARACTER T(. APPEAR IN THE FIFO. 
IF NO CHARACTER APPEARS WITHIN TIME OUT PERIOD: 



EXIT ROUTINE. WE RE DONE. 



16S206 2»i 



4>: 



166266 



MOV RXTOUT.Rl 

CMP TXDONF.ACTLNS 

BEG 4f 

ADO *50..R1 

BIS •170000. Rl 

rOV RBUFA,R2 

JSR PC.WAI8IS 

8CC 60$ 

DEC CmRTOT 

BNE 6( 

MOV R4, ERRNBR 

MOV •EM9025.R1 

MOV ♦ER0505.ERRBLK 



iGET MINIMUM TIME OUT VALUE. 

I CHECK FOR TRANSMISSION DONE ON ACTIVE LINES. 

iSKiP ADDING 50 MS DELAY IF TX DONE ALL LINES. 

I ADO 50 MILLI SEC TO OElAY IF NOT LAST CHAR, 

;INOICATE TO TEST DATA. VALID BIT. 

iINDICATE TO CHECK OUT RECEIVE BUFFER (FIFO). 

I WAIT FOR RECEIVED CHAR OR TIME OUT. 

lEXIT ROUTINE IF TIME OUT. WE RE DONE. 

.DECREMENT THE TOTAL CHAR COUNTER. 
iSKIP ERROR IF NOT TOO MANY CHARS RECEIV(0. 
I SET ERROR NUMBER TO INITI4L ERR»«R. 
iSELECT THE ERROR MESSAGE TO BE REPORTED. 
jSElECT THE ERROR REPORT RC'TINE. 



REPORT ERROR AT INITIAL ERRNBR. 

"MORE THAN TWICE THE EXPECTED NUMBER OF CHARACTERS RECEIVED 



ERROR 



017054 104460 



> > • » » ERROR •<»•'. 

TRAP 



0/ 



SU; 017O56 01^767 

sue 

5129 017044 0004S5 
SISO 
5151 
5152 
5155 
5154 
5155 
5136 
ilS7 
5150 
5159 
5140 
5141 
5142 
5143 
5144 
3145 
5146 
5147 
3149 
3149 
3150 
3151 
3152 
3153 
3154 
31S5 
5156 
S157 
5159 
5159 
3160 
S161 
S162 
5165 

5164 
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000001 163160 



MOV 
BR 



•1. TERROR 
6Ct 



I INDICATE THAT AN ERROR HAS SEEN FOJNO. 
il:XIT THIS ROUTINE UE HAVE GIVEN UP. 



Ml '040 

017050 
017052 
017056 


000503 
042703 
006305 


177760 




61 i 


HOV 

SWAB 

SIC 

ASL 


RS 

#177760. R3 
R5 










: PROCESS THE 


READ CHARACTERS 


017060 
017062 


010505 
100012 






i 


MOV 
BPL 


R5.R5 
81 


017070 
017074 


WW* »o / 
005767 
001416 


163130 






JSR 

TST 
BEQ 


TERROR 
101 


017076 
017104 
017106 


032767 
001012 
000414 


000100 


1650S6 




BIT 
BNE 
BR 


•6IT06.0PTI0N 

lot 

60t 


017110 
017114 
017120 
01712? 
017130 


004767 
005767 
001404 
032767 
001403 


003242 
163104 

000100 


163052 


8*: 


JSR 
TST 

BEQ 
BIT 

BEQ 


PC.PRPARE 

TERROR 
10 » 

4BIT06. OPTION 
601 


017152 
017136 


004767 

000707 


007360 




10*: 


JSR 
BR 


PC.UPDCHR 
2» 


017140 
017144 
017144 
017146 


010467 

004736 

000207 


166152 




60* : 


HOV 
PASS 

RTS 


R4.ERRNBR 

JSR 

PC 



EXTRACT TKC LINE NUMBER OT THE NEU CHARACTER. 

CALCULATE OFFSET FOR ACCESSING TABLES OF LINE VARIABLES. 

.COPY THE READ CHARACTER. 
iGET THE LINE NUMBER IN THE LSB. 
(CLEAR THE UNUANTEO BITS. 
I SHIFT LEFT TO FQRM OFFSET INTO TABLES. 



lOETERMIN WHICH TEST CALLED THIS ROUTINE. 
iBRANCH TO PROCESS CHARACTER IN PARITr TEST. 

I PROCESS FRAMING ERRORS RECEIVED. 
iHAS AN ERROR BEEN DETECTED ? 

,N0. THEN SKIP PROCESSING CHARACTERS FOR PARITf 

I TEST. 

:HAS EXTENDED ERROR REPORTING BEEN ENABLED ? 
(BRANCH IF IT HAS. 
(OTHERWISE EXIT. 

(PROCESS PARITY ERRORS RECEIVED. 

(HAS AN ERROR BEEN DETECTED ? 

iNO. THEN BRANCH TO UPDATE POINTERS. 

(HAS EXTENDED ERROR REPORTING ^^EEN ENABLED ? 

(EXIT IF IT HASN' T. 

(UPDATE POINTERS MNO COUNTERS FOR THIS LINE. 
(LOOP TO READ NEXT CHAR FROM FirO. 

(RESTORE THE ERROR NUMBER TO ITS INITIAL VALl€ . 
(RESTORE GPRS. 

PC.aCSP)* (RETURN TC PREGOb S»J6RT, 
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SIM 
5167 
3160 
5160 
5170 
5171 
5172 

5;75 

5174 
3175 
5176 
5177 
5178 
Sl'O 
51»0 
5181 
3192 
5195 
5194 
5185 
5196 
5187 
3199 
3199 
3190 
5191 
5192 
3193 
3194 
3195 

3196 
3197 
5199 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
5206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
5215 
3216 
5217 
3216 
S219 
3220 
^221 



.S8TTL GLOBAL SUBROJTINE 



CKINAC 



017150 
017150 



017154 
017156 
017160 
017164 



017166 
017170 



017172 
017176 
017204 



004567 166150 



010203 
000303 
042703 
006303 



005702 
100021 



016301 
036167 
001013 



177760 



005234 
002364 



162766 



i • 
;• 

! • 
J* 
»• 

:* 
;* 

:* 

J* 
;* 
i» 

!* 

i - ■ 



check foa new characte'^ on inactive line root inc ■ 
This subroutine checks a character to determine if the character 
was received on an active line. if the character was received on 

AN INACTIVE LINE 'HIS ROUTINE RECORDS TmE FACT THAT THE CHARACTER 
WAS RECEIVED ON AN INACTIVE LINE. PREPARES AN ERROR MESSAGE FOR 
THE CALLING ROUTINE. AND RETURNS A FAILURE' STATUS. 



INPUTS : 



OUTPUTS: 



R2 - THE RX CHARACTER INCLUDING ERROR FLAGS AND LINE NUMBER. 
ACTLN5 BIT HA? OF ACTIVE OUT LINES. 

BITTBL TABLE OF WORDS WITH BITS SET FOR FORMING BIT HAPS. 
EM9006 - LABEL AT "RX ON INACTIVE LINE" ERROR MESSGE . 
EXCNTB - BASE OF THE EXTRA CHARACTER COUTERS TABLE. 
TXRXLB - BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 

CARRf - "SUCCESS" FLAG (SET IF NO ERROR FOUND). 

Rl IF ERROR FOUND. ADDRESS OF ERROR MCSSAGE. 

RS - LINE NUrSER OFFSET OF PASSED IN CHARACTER. 

R4 • IF ERROR FOUND. EXPECTED DATA INDICATION FOR ERROR OPT. 

EXCNT ' EXTRA CHARACTER COUNT FOR LINE (UPDATED IF ERROR). 



JSR 



CALLING SEQUENCE: 
COMMENTS: 

SUBORDINATE ROUTINES CALLED: NONE 



PC.CKINAC 



CKINAC:: SAVE 



I SAVE CONTENTS OF GPRS RO THRU RS. 
JSR R5.PREG05 ;CALL REGISTER SAVE SUBRT. 



t EXTRACT THE LINE NUMBER FROM THE PASSED IN CHARACTER AND USE THE LINE 
I NUMBER TO FORM AN OFFSET FOR ACCESSING T/«LES OF LINE VARIABLES. 



MOV R2.R3 i EXTRACT THE LINE NUMBER 

SUAB R3 i FROM THE CHARACTER WE 

BIC «177760.R3 i ARE COMPARING. 

ASL RS :FORM OFFSET INTO WORD TABLE FROM LINE NUMBER. 

I IF THE CHARACTER IN QUESTION IS NOT A VALID CHARACTER. EXIT WITH 'SUCCESS' . 

TST R2 iCMECK DATA. VALID BIT. 

6PL 50* lEXir WITH SUCCESS IF CHAR IS NOT VALID. 

!*IF THE TX LINE WHICH IS ASSOCIATED WITH THIS RX LINE IS AN ACTIVE LINE. 
t EXIT THE ROUTINE WITH "SUCCESS". 

* MOV TXRXLB(R3).R1 iGET THE TX LINE • OFFSET FQR THIS RX LINE. 

BIT BITTBL(R1).ACTLNS (DETERMINE IF TX LINE IS AN ACTIVE LINE. 
BNE sot lEXIT ROUTINE WITH SUCCESS IF LINE IS ACTIVE. 



i ♦ 

I 
i 
t 



THE CHARACTER IN QUESTION WAS RECEIVED ON AN INACTIVE LINE. 
COUNT THIS CHARACTER AS AN EXTRA CHAR. 
SET UP ERROR INFORMATION. 
EXIT ROUTINE WITH "FAILURE" INDICATION. 



5222 OlfPOe 005265 
3225 017212 001002 

5224 017214 005S6S 

5225 017220 012701 

5226 017224 012704 
522' 017250 000241 
5228 017252 000401 
522<» 

5250 
5251 
5252 
5255 

5254 017254 000261 
5255 
5236 



5257 



017256 
017256 
017242 
017246 
017252 
017254 



010166 
010566 
C 10466 
004 756 
000207 



HACHO M12 



005242 

005242 
011253 
100000 



000004 
000010 
000012 



2»: 



INC 
BNE 

DEC 

«ov 

NOV 
CLC 
BR 



EXCNTB(R3) 
21 

EXCNTBCR3) 
•EttMOe.Rl 
4BIT1S.R4 

60* 



{INCREMENT THE EXTRA CHAR COUNT FOR TMI5 Llt^ 

sSKIP SETTING TO MAX VALUE IT NO OVERtCow ' 

'DfCREMENT BACK TO 1 (MAX iAtjE) ir otwFLOW 

»SET RX ON INACTIVE LINE MESSAGE. 

'I^J.if^ "NONE" EXPECTED DATA INDICATION 

iCLEAR THE "SUCCESS" FLAG. 

iGO REPORT RX CHAR ON TRACTIVE LINE. 



SEC ,SET THE "SUCCESS" FLAG. 



601: 



PASS 



RTS 



RI.93.R4 



PC 



MOV 
NOV 
NOV 
JSR 



:REST0RE GPRS. EXCEPT OUTPUT GPRS. 



Rl.RlSLOT(SP) 
R3.R3SL0T(SP) 
R4.R4SL0T(SP) 
PC.a( SP) 



iPUT Rl IN STACK SLOT. 

jPUT R3 IN STACK SLOT. 

»PUT R4 IN STACK SLOT. 

jRETLWN TO PREG05 SUBRT 



, CARRY SUCCESS «-LAG (SET IF NO ERROR) 



OHU II TUNC TST PM14 



5259 
5?40 
5241 
5242 
5245 
5244 
5245 
5240 
524' 
5245 
5249 
5250 
5251 
5252 
5255 
5254 
5255 
5256 
5257 
525S 
5259 
5260 
5261 
5262 
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S265 
5264 
5265 
5266 
5267 
5266 
5269 

5270 



017256 
017256 
017262 
017266 
017270 
017274 
017276 
017500 
017502 
017302 
017504 



004567 
005067 
011011 
005767 
000261 
001401 
000241 

004736 

000207 



166042 
162766 

162760 



.SBTTL GCOBAL SUBROUTINE 



CKTRAP 



♦ CHECK T^AP ROUTINE 

♦ THIS SUeROUTINE IS USED TO CHECK POP A BuS TIME -OUT TRAP v'004 TRAP) 

• UHICH 15 CA'JSED AN ACCESS TO A NON EXISTENT MEMORt QR I/Q LOCATION. 

• IF THE TRAP DOES NOT OCCUR. THIS ROUTINE RETURNS A SUCCESS INDICATION. 

• INPUTS: RO SOURCE ADDRESS TOR MOVE. 

• Rl DESTINATION ADDRESS FOR MOVE . 
i* (RO) - SOURCE FOR THE MOVE. 

* 

* OUTPUTS: vRl) WRITTEN TO THE CONTENTS OF (RO). 

« CARRr FLAG - SET ON RETURN IF NO 004 TRAP DETECTED. 

* TP4FLG - NONZERO IF TRAP OCCURRED, CLEARED OTHERWISE. 



* CALLING SEQUENCE: 



JSR 



PC. CKTRAP 



* COMMENTS: IF THIS SUBROUTINE CAUSES A TRAP. EITHER THE ADDRESS WHICH 

* IS LABELED ADRPTR WILL BE THE TRAP PC ADDRESS ON THE STACK. 

* SUBORDINATE ROUTINES CALLED: NONE. 



CKTRAP:: SAVE 

CLR 
MOV 
ADRPTR: : TST 
SEC 
BEQ 
CLC 

60« : PASS 
RTS 



iSAVE CONTENTS OF GPRS RO THRU RS. 
JSR R5.PREG05 iCALL REGISTER SAVE SUBRT. 

TP4FLG {CLEAR THE 004 TRAP FLAGS. 

CRO).(Rl) jPERFORM THE MOVE IN QUESTION. 

TP4FLG J CHECK FOR OCCURENCE OF TRAP. 

; INDICATE SUCCESS. 
60 » I EX IT WITH SUCCESS IF TRAP DID NOT OCCUR. 

I INDICATE FAILURE. 

I RES TORE GPRS. 

JSR PC.aCSP). I RE TURN TO PREG05 SUBRT, 

PC 



OMU-ll f\JHC fST P<M»»4 



1272 

S27S 

3274 

5275 

527i> 

1277 

52 

5279 

5200 

5261 

5292 

5263 

5264 

5265 

5266 

5267 

5266 

5269 

5290 

5291 

5292 

5295 

5294 

5295 

5296 

5297 

5296 
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5299 
5500 
3501 
5502 
5503 
5504 
5305 
5306 

5307 



017306 
017306 

017512 
017316 
017320 
017324 
017326 
017350 
017552 
0W552 
017534 



004567 

005067 
lllOU 
005767 
000261 
001401 
000241 

004 756 
000207 



166012 
162756 
162750 



- CHECK rOR TRAP 

THIS SUeROUTINC IS USED TO CHECK FOR A BUS TIME OUT TRAP (004 TRAP) 

WHICH IS CAUSED BY (KU ACCESS TO A NON-EXIsTENT MEMORY OR I/O LOCATION 

If A TRAP DOES NOT OCCUR. THIS ROUTINE RETURNS A SUCCESS INDICATION. 



.SBTTL 
»•*•*♦* 

»* 

* 
* 
* 

I* 

* 

* 

* 

* 

* 

* 
I* 
I* 
J* 
»* 



GOBAL SUBROUTINE 



CKTRPB 



INPUTS: 



OUTPUTS: 



RO SOURCE ADDRESS fOR MOVE 

Rl - DESTINATION ADDRESS FOP MOVE 

(RO) SOURCE FOR THE MOVE 

(Rl) URITEN TO THE CONTENTS OF (RO) 

CARRY FLAG SET ON RETURN IF NO 004 TRAP DETECTED 

TP4FLG NONZERO IF TRAP OCCURED. CLEARED OTHERWISE. 



CALLING SEQUENCE: 



JSR 



PC. CKTRPB 



COMMENTS: 



IF THIS SUBROUTINE CAUSES A TPAP. EITHER THE ADDRESS 
WHICH IS LABELED TRPAD2 WILL BE THE TRAP PC ADDRESS ON 
THE STACK OR SOME OTHER ADDRESS WHICH WAS PLACED ON 
THE STACK BY AN UNEXPECTED TRAP. 

THIS ROUTINE PERFORMS A BYTE MOV , 



SUBORDINATE ROUTINES CALLED: 



NONE. 



CKTRPB: 1 



SAVE 



JSR 



R5.PREG05 



tCALL REGISTER SAVE SUBRT. 



TRPAD2 : 



60$: 



CLR 

MOVB 
: TST 

SEC 
BFQ 

CLC 
PASS 

RTS 



TP4FLG 

(RO).(Rl) 

TP4FLG 



60 ( 



PC 



jCLEAR THE 004 TRAP FLAGS 
jPERrORM THE BYTE MOVE 
J CHECK FOR OCCURENCE OF TRAP 
{INDICATE SUCCESS 

jEXiT WITH SUCCESS IF TRAP DID NOT OCCUR 
; INDICATE FAILURE 



JSR 



PC.a(SP). 
{RETURN 



I RE TURN TO PREG05 SUBRT. 



5S<» 
59 10 
SSU 

.MIS 
SS14 

5s:5 
jsr 

5S1S 
S51<» 
S320 
$121 
iS22 
ii2i 
S524 
5525 
55^6 
S527 
552§ 
5329 
5550 
5531 
5352 
S35S 
5534 
5535 
3336 
5357 

3558 
5539 
3340 
5541 
5542 
3545 
5544 
5545 
5346 
554 7 
SS46 
3349 
3550 

5351 
3352 



017536 

017336 004567 165762 



017342 004 767 004510 
017346 103002 



017550 004767 003274 

017354 
017354 

017554 004 736 

017356 000207 



.SBTTL GLOBAL SVIBRCUTINE 



CLNRST 



* 
* 

♦ INPUTS: 

* 

* 

t OUTPUTS: 

* 

* 

* 

* 



cle;»i reset of tkc ofvice under test 
THIS subroutine is used to reset the out to a known stave, 
the out s selr test is skipped. and the tifo is purged of ant error 
cooes, etc. 

If ThC reset DOES NOT SUCCESFULLt COMPLETE. THEN THE CARRY BIT IS 
PASSED BACK TO THE CALLING ROUTINE C CLEAR). 



CSRA - CONTAINS TfC ADDRESS OF THE CSR 

TXBFCA CONTAINS ADDRESS Of DUT OHA BUTFER COUNT REGISTER. 
ERRNBR ERROR NUMBER TOR POSSIBLE ERROR REPORT. 
ERRTBL ERRTVP.ERNBR.AND ERRNSG SET UP CORRECTLY. 

THE DUT PERFORMS ITS RESET FUNCTION INTO A KNOWN STATE. 

CARRY CLEAR INDICATES THE TEST IS TO BE ABORTED. 

ERRBLK - VALUE MAY BE DESTROYED. 

lESTAT TX AND RX INTERRUPT FLAGS ARE CLEARED. 

TX AND RX INTERRUPT ENABLE BITS IN THE OUT'S CSR ARE CLEARED. 



* CALLING SEQUENCE: 



JSR 



PC. CLNRST 



* COMMENTS: THIS SUBROUTINE CAN REPORT ERRORS WITH NUMBERS ERRNBR. 

♦ THIS ROUTINE DOES NOT DESTROY THE VALUE OT ERRNBR. 
* 

• SUBORDINATE ROUTINES CALLED: DELAY .MSLGET .Ptjriro, RESET T . 



CLNRST:: SAVE 



I SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 iCALL REGISTER SAVE SUBRT , 



! RESET 
I THIS 

t ■ 



THE DUT. 

ROUTINE REPORTS ERRORS WITH NUMBERS FROM ERRNBR THRU ERRNBR *2. 



JSR 
BCC 



PC.RESETT 
60* 



, RESET THE DUT TO A KNOWN STATE. 

jEXIT ROUTINE WITH ABORT TEST INDICATOR, 



I PURGE 

I - 



THE FIFO OF ERROR COOES. SAVE ANY BMP COOES FOUND. 
JSR PC.PLiFIFO {PURGE THE FIFO. 



60*: 



PASS 



RTS 



JSR 



PC 



;EXIT THE TEST USING RESETT OR PUFIFQ STATUS 
{RESTORE GPRS. PASS THE FOLLOWING INTACT; 
PC,S(SP)» iRETURN TO PREC05 SUBRT, 

jCARRY BIT: IF CLtAR. THEN ABORT THE TEST. 



OHC' II f^HC Tsr p 

GLOBAL StlWOUTINE 



PAf)T4 MACRO Ml^ 



^554 

53^5 
555© 

5355 
5559 
S360 
S561 
5562 
3S6S 
3364 
3365 
3S6^ 
3367 
3366 
3S69 
5570 

5371 
5372 
3373 
5574 
3575 

5376 



00 

CI 
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LR16U 



017560 

017360 004567 165740 

017364 012701 000020 

017370 005020 

017572 005301 

017574 001575 
0175-'6 

017376 004736 

017400 000207 



.SBTTL GLC9AL SUBROUTIME 



- CLR16U 



Clear sixteen words routine 
THIS subroutine Clears i6 words starting with the specified word. 



i* 

j» II#»UTS: 

!• OUTPUTS: 

I* calling sequence 

i* COMMENTS: 
s» 

f SUBORDINATE ROUTINES CALLED: NONE. 



RO ADDRESS Of THE FIRST WORO TO CLEAR. 
(RO) TO fRO.15) - 16 WORDS Of MEMORY ARE CLEARED TQ 0. 
JSR PC.CLR16W 



CLR16W:: SAVE 
MOV 

2»: CLR 
DEC 
BNE 
60* : PASS 

RTS 



•16. .Rl 
(R0)» 
Rl 
2» 



PC 



iSAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG0S {CAlL REGISTER SAVE SUBRT. 

;SET THE LOOP COUNTER TO 16. 
tCLEAR A WORD OF MEMORt. 
J COUNT THIS LOOP. 
I LOOP IF NOT 16 WORO CLEARFO. 
{RESTORE GPRS. 

JSR PC.aCSP)* iRETURN TO PRtC05 SmRT. 
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35 7S 
557** 
5560 
5561 
5562 
5395 
3394 
3585 
5566 
5587 
5580 
5589 
5590 
5591 
5392 
3595 
5594 
5595 
5596 
5597 
5596 

5399 
3400 
5401 
5402 
5403 
5404 
5405 
3406 
5407 
3408 
3409 
3410 
3411 
3412 



34 IS 
3414 



017402 
017402 
017406 
017412 
017414 
017420 
017422 
017424 
017426 
017450 
017432 
017436 
017440 
017442 
017444 
017446 
017446 
017452 



0O4567 
012702 
010505 
012704 
005005 
006205 
103005 
011201 
006201 
004767 
050005 
005722 
005504 
001366 

010566 
004736 



165716 
005254 

000020 



001250 



000014 



.ssttl global subroutine 



C0»*1AP 



s • 
J* 
s* 

s* 

s* 

I* 
;* 

!♦ 



CONVERT LINE BIT MAP. 
THIS SUBROUITNE IS USED TO CONVERT A BIT MAP PASSED TO IT . INTO 
ANOTtCR LINE BIT MAP THAT IS BASED UPON THE ASSOCIATED TX/RX LINE 
NUMBER/OFFSET TABLE. 

INPUTS: R5 CONTAINS T»C LINE BIT MAP TO BE TRANSFORtlED . 

TXRXLB BASE ADDRESS OF ASSOCIATED TX/RX LINE NUMBER TABlE. 

OUTPUTS: R5 CONTAINS AN ASSOSCIATEO LINE BIT MAP. 

CALLING SEQUENCE: JSR PC.CONHAP 

COMMENTS: THE TX/RX ASSOCIATION TABLE MUST BE INITIALISED BEFORE TMIS 
ROUTINE IS CALLED. 

SUBORDINATE ROUTINES CALLED: NONE. 



017454 000207 



C0NMAP::SAVE 

MOV 
MOV 
MOV 
CLR 

Zti ASR 
BCC 
MOV 
ASR 
JSR 
BIS 

4(: TST 
DEC 
BNE 

60< t PASS 



RTS 



♦TXRXLB. R2 

R5,R5 

♦NUMLNS.R4 

R5 

R3 

4$ 

(R2).Rl 
Rl 

PC.LIN8IT 
R0.R5 
CR2)» 
R4 
2> 
R5 



MOV 
JSR 



I SAVE CONTENTS OF GPRS RO TMRU R5. 
R5.PREG05 J CALL REGISTER SAVE SUBRT. 

iCET THE BASE ADDRESS OF THE LINE ASSOC TABLE. 
COPr THE BIT MAP TO BE TRANSFORMED. 
SET MAX LINE COUNTER. 
CLEAR ASSOCIATED LINE BIT MAP. 
SHIFT ACTLNS BIT MAP INT BOOLEAN REGISTER. 
jSKIP SETTING ASSOCIATED LINE NUMBER BIT MAP. 
iGET ASSOCIATED LINE NUMBER OFFSET FROM TABLE. 
fSHlFT RIGHT TO GET LINE NUMB FROM OFFSET, 
jC-ENERATE AN SINGLE BIT MAP FOR THIS LINE. 
;SET BIT FOR THIS LINE IN ASSOCIATED BIT MAP. 
•.INCREMENT ADDRESS FOR THE NEXT LINE NUMBER. 
.•DECREMENT LINE COUNT. 
J LOOP IF NOT DONE, 
sRESTORE GPRS, EXCEPT 
R5,R5SL0T(SP) 
PC.3( SP) 



jPUT R5 IN STACK SLOT. 
(RETURN TO PREG05 SU6RT 



PC 



}R5 CONTAINS THE ASSOCIATED LINE BIT MmP. 



54 lb 
5417 
3416 
3419 
S420 
9421 
3422 
S425 
i424 
U25 
542b 
5427 
542B 
5429 
54 SO 
5451 
54 

54 55 
5454 

5455 
5456 
5457 
5450 
5459 
5440 
5441 
5442 

5445 
5444 
544S 



017456 
017456 
017462 
017464 
017470 
017472 
017476 
017502 
017504 
017510 
017510 
017512 



004567 
010401 
012702 
905003 
012704 
004767 
105002 
004767 

004756 

000207 
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165642 

177777 

017514 
001506 

002514 



SBTTL GLOBMt SUBROUTINE 



OELAr 



OECAT SUBROUTINE 

THIS SUBROUTINE IS USED TO DELAt A VARIABLE NUMBER OF HiLCl -SECONDS. 



R4 CONTAINS THE NUMBER OF MS TO OELAr. 
MSLCNT. 



NONE. 



»• 

!• I*«>UTS: 
s* 
;• 

OUTPUTS: 

!• CALLING SEQUENCE: 
»• 

t* COrtCNTS: If HO HARDWARE CLOCK INTERRUPTS ARE OCCURING. CONTROL -CS Ml-L 

i* NOT BE HONORED FOR THE DURATION OF THE DELAY. 

s* 

s* SUBORDINATE ROUTINES CALLED: NONE. 



JSR 



PC. DELAY 



OELAr:: SAVE 



MOV 
MOV 
CLR 
MOV 

JSR 
BCC 

JSR 

PASS 



017514 177777 



60»: 



62<: 



JSR 

R4.R1 

#-l.R2 

R5 

»62»,R4 

pc.msloop 

601 

PC. OOPS 



RTS 
.UORD 



PC 



JSR 



iSAVE CQMTENTS OF GPRS RO THRU R5. 
R5.PREG05 :CALL REGISTER SAVE 5UBRT. 

jPASS NUMBER OF MS DELAY AS TIME-OUT VALUE. 
:TELL MSLOOP ROUTINE TO CHECK ALL BITS. 
-.TELL MSLOOP RTN TO CHECK FOR ALL BITS CLEAR. 
sTELL MSLOOP TO CHECK DUMMY NON-ZERO WORD. 
;DELAy the requested * of MS. 
sEXiT ROUTINE IF WE TIMED-OUT.l 
}IF NO TIME-OUT, BAD PROGRAM OR MOST MACMIN6 . 
.•RESTORE GPRS. 

PC.8(SP)» :RETURN TO PREG05 SUBRT. 



sOUMMY NON ZERO WORD. 



MACRO Hl^OO 



M4 7 
5443 
9449 
$4iO 
S451 
3452 
S45S 
54M 
$455 
5456 
M57 
$459 
$459 
$460 
$461 
$462 
546$ 
$464 

$465 
$466 
$467 
$468 
S469 
$470 
S471 
M72 
S47S 
5474 
54 75 
5476 
5477 
5478 



5479 
548C 



017516 
017516 
017522 
017526 
017552 
017554 
017556 

017540 
017544 

017550 
017552 



017560 
017560 
017564 
017566 



004567 
016700 
01270;? 
006500 
005302 
001$75 

012701 
052700 
001402 
012701 



01 /556 060100 



010066 
004756 
000207 



165602 
162474 
000006 



000052 
000100 

000025 



000002 
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.SbTTL GlOBM. S*ienOUTINE 



oni6e 



CONVERT TO A 16 -BIT PHYSICAL AOOftESS 
THIS ROUTHC CONVERTS FROM PAR FQRn TO A 16 BIT PHYSICAL ADDRESS. 
OF ALTERNATE I'S AND O'S. 

Iltf>UTS: DHTSTA: - CONTAINS THE ADDRESS IN PAR FQRH 

OUTPCTS. RO - CONTAINS THE 16 BIT PHYSICAL ADDRESS 

CALLING SEQUENCE: JSR PC.Dni6B 

COHtCNTS: USED IN THE DMA ADDRESS TEST 

SUBROUTINES CALLED: NONE. 



0M16B:; SAVE 



2%. 



At: 



HOV 

nov 

ASL 
DEC 
BNE 

nov 

BIT 
BEQ 
MOV 

ADO 

PASS 



RTS 



JSR 
OnTSTA.RO 
46.R2 
RO 
R2 
2( 

♦52. Rl 

♦lOO.RO 

4( 

•25. Rl 



Rl.RO 
RO 

PC 



MOV 
JSR 



RS.PREG05 iCALL REGISTER SAVE SUBRT. 

I SHIFT THE DMA TEST ADDRESS 

sSIX PLACES LEFT . TO 

{CONVERT IT INTO A . 

i 16-BIT PHYSICAL ADDRESS 



:SET OP THE 6 LSB'S 
tIF BIT 46 OF THE PHYSICAL 
(ADDRESS IS CLEAR THEN BRANCH 
tOTHERUlSE CORRECT THE LSB'S 

tMREGE THE LSB'S UITH THE PHT ADOR 



tRETURN UITH THE PHY ADDR. 



RO.ROSLOT(SP) 
PC.a(SP^. 



jPUT RO IN STACK SLOT. 
(RETURN TO PREC05 SUBRT. 



QHU n fUHC rsl PMT4 HACR( 



RO Ml 200 
166 
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340;? 
5405 
5484 
5405 
5406 
5407 
5400 
5409 
5490 
5491 
549^ 
5495 
5494 
54% 
5496 
5497 
5490 
5499 
5500 
5501 
5502 
5505 
5504 
5505 
5506 
5507 
5500 
5509 
5510 
5511 
5512 
5515 
5514 
5515 
5516 
5517 
5516 
5519 
5520 
5521 

5522 
5525 
5524 
5525 
5526 
5527 
5528 
5529 
5550 
5551 
5552 
5555 
5554 
5555 
5556 
5557 



017570 
017570 

017574 
017576 
017602 
017604 

017610 
017612 
017620 



017624 
017652 
017654 
017640 
017646 



.SeTTL GLOBAL SUBROUTINE 



DMRU 



REAO/URITE DATA FROM/TO (DMTSTA) 
THIS ROUTINE READS DATA BYTES FROM OR WRITES DATA BYTES TO AN ADDR OF 
ALTERNATE IS AND O'S . BITS 21 TO 6 OF THE AOOR ARE CONTAINED AT 
DHTSTA. THE ROUTINE APPENDS THE 6 LS8' S TO PRODUCE AN AOOR OF 
ALTERNATE I'SANO O'S. THIS ROUTINE IS CALLED FROH THE OHA ADDRESS TEST. 



INPUTS: 



RO 

Rl 

R5 
R5 



OUTPUTS: 

CALLING SEQUENCE: 
COMENTS: 



ADDRESS OF THE DATA TO BE WRITTEN TO (DHTSTA), 
IF A WRITE IS SPECIFIED. 

ADDRESS OF THE AREA IN WHICH DATA FROH (DHTSTA). 
IS TO BE SAVED. IF A READ IS SPECIFIED. 
NUMBER OF DATA BYTES TO BE READ/WRITTEN 
CLEAR , SPECIFIES A READ FROM (DHTSTA) 
SET . SPECIFIES A WRITE TO (DHTSTA). 
DHTSTA - CONTAINS BITS 21 TO 6 OF THE ADDR. 
MHSRO - ADDRESS OF MEM HGT STATUS REG 40 
MHPRES BIT #0 SET. INDICATES MEM MGT PRESENT 
PAR6A ADDRESS OF MEM MGT PAR 46 
TP4FLG 004 TRAP FLAGS 

DATA AT (DHTSTA) SAVED OR WRITTEN 
PAR 46 CONTENTS SET TO CONTENTS OF DHTSTA 
TP4FLG - CLEAR IF READ/WRITE SUCCESSFUL 
SET IF FAIL. 



JSR 



PC.DMRW 



IF MEM MGT IS PRESENT THE SUBROUTINE USES (DMT ST A) 
AS THE PAGE ADDRESS . PLACING IT IN PAR 46. AND CREATES 
A VIRTUAL ADDR IN THE RANGE OF PAR 46 WHICH CONTAINS 
THE SIX LSB'S. 

IF IT IS NOT PRESENT THE (OMTSTA) IS CONVERTED INTO 
THE EQUIVALENT 16 BIT PHYSICAL ADDRESS. 



SUBORDINATE ROUTINES CALLED: CKTRAP.DM16B. 



004567 165550 



DMRW: 



010004 
005767 
001005 
004767 

000416 
016777 
012700 



052767 
001402 
012700 
012777 
005705 



162516 
177706 



162404 
140052 



162520 6(! 



000001 162570 



140025 
000001 



162446 8S: 

lOJ : 



SAVE 

JSR 

MOV R0.R4 

TST MMPRES 

BNE 6« 

JSR PC.DM16B 

BR 10 1 

MOV DHTSTA. aPAR6A 

MOV 4140052, RO 



BIT »l, DHTSTA 

BEQ 81 

MOV 4140025.ro 

MOV 4BIT0.anMSR0 

TST R5 



R5.PREG0S 



I CALL REGISTER SAVE SUBRT. 



tSAVE THE SOURCE ADDR 

I IF MEM MGT IS PRESENT THEN 

;JUMP AND SET UP THE PAR «5 

(OTHERWISE CONVERT DHTSTA INTO A 16 BIT 

J PHYSICAL ADDRESS. IN RO. 

I JUMP TO PERFORM THE MOVE 

sSET PAR 46. 

sSET THE SIX LSB'S AND CONVERT TO 

]A VIRTUAL ADDRESS WITHIN THE INFLUENCb 

iOF PAR 46. 

J IF BIT 40 OF OMTSTA IS CLEAR THEN 

; AVOID CHANGING THE LSB'S 

I CHANGE THE LSB'S 

(ENABLE MEM MGT. 

,IF A READ IS SPECIFIED THEN 



S5M 017650 001402 BCQ 

9559 017652 010001 HOV 

9540 017654 010400 HOv 

9541 017656 004767 177424 12«: JSR 

9542 017662 109004 BCC 
9549 017664 005201 INC 
9544 017666 005200 INC 

5545 017670 005909 OCC 

5546 017672 001971 BNE 
9547 017674 005767 162420 141: TST 
9540 017700 001402 BEQ 

9549 017702 005077 162406 CtR 

9550 017706 16 »: PASS 
017706 004796 

9551 017710 000207 RTS 
9552 



B8 



PAGE 60 1 <iCO 92 



1^1 I AVOID SUAPING THE S0UIH:E AND OESTXNATZOh. 

RO.Pl iSWAP 

R4.RC iRESTORE THE ORIGINAL SOURCE FQR THE HOVE. 

PC.CKT*W>B I PERFORM THE BTTE MOVE. 

141 (EXIT IF A TRAP OCCUREO. 

Rl I INCREMENT THE DESTINATION ADDRESS 

RO I INCREMENT THE SOURCE AOOR. 

R5 lOECREMENT THE DATA 

12< iREPEAT UNTIL ALL DATA REAO/WRITTEN 

HN>RES sir MEM MGT IS PRESENT THEN 

161 t 

aMHSRO lOISABLE IT. 

JSR PC.a(SP)* iRETURN TO PREG05 SUBRT. 

PC 



C8 



fiiOSAi stfWCX'TINL 



3554 
3555 
55'<. 
555 r 
555« 
^55** 
35*0 
55*1 
556^ 
5565 
5564 
3565 
3566 
5567 
5560 
3569 
3570 
55 l 
357£ 
5575 
5574 
3575 
35/6 
3577 
3579 
5579 
3560 
5561 
3562 
3583 
3564 
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PMX. 6/ 



3585 
3586 
358 7 

5588 
5569 
5590 
5591 
5592 
5593 
5594 
3595 
5596 



5597 



5590 
5599 
5600 
5601 
5602 
5605 
5604 
5605 



0177)2 
017712 
017716 



017722 
017722 
017724 
017726 
017726 
017752 
017754 
017740 
01 7744 
017750 
017752 
017754 
017760 
017 764 



.SBTTL CLOML SUBROUTINE 



oao«« 



INITIATE DMA TRANSMISSION ROUTINE - 
THIS ROUTINE URITES THE DMA PARAMETER TO THE SPECIFIED OEvtCE AND 
INITIATES THE DMA TRANSMISSION. 



II#»OTS: 



OUTPUTS: 



Rl - LINE NUMBER ON WHICH TO INITIATE THE DMA. 

R2 START ADDRESS OF THE DMA BUFFER (16 BIT VIRTUAL). 

R5 CHARACTER COUNT OF THE DMA BUFFER. 

CSRA - CONTAINS ADDRESS OF THE OUT CSR. 

lESTAT STORAGE FOR STATES OF THE INTERRUPT ENABLE BITS. 
TXAOIA CONTAINS ADDRESS OF DMA TX BUFFER ADDRESS REG •I. 
TXA02A • CONTAINS ADDRESS OF DMA TX BUFFER ADDRESS REG *2. 
TXBFCA CONTAINS ADDRESS OF DMA CHARACTrR COUNT REGISTER. 

CARRY - SUCCESS FLAG (SET IF DMA. START FOUND CLEAR). 



OUT TBUFFADl 
DUT TBUFFAD2 

DUT TBUFFCT 



CALLING SEQUENCE: 



JSR 



LS 16 BITS OF DMA BUFFER ADDRESS (INITIALIZED). 
MS 6 BITS OF DMA BUFFER ADDRESS (INITIALIZED). 
DMA. START BIT SET. 
DMA BUFFER CHARACTER COUNT (INITIALIZED). 

PC.DOOMA 



COMMENTS-. THIS ROUTINE ASSUMES MEMORt MANAGEMENT IS DISABLED AND 

CLEARS THE TWO MSB OF THE DMA ADDRESS. I.E. BITS 0 AND I 
OF THE TBUFFA02 REG. 

SUBORDINATE ROUTINES CALLED: NONE. 



004567 
012704 



165406 
000200 



OODTM:: SAVE 
MOV 



I SAVE CONTENTS OF GPRS RO THRU R5. 
JSR RS.PREC05 iCALL REGISTER SAVE SU6RT. 

4200. R4 jPREPARE TO CLEAR UPPER 6 BITS OF DMA BUFF ADR. 



104440 

OlOOOS 

012700 
104441 
056701 
010177 
105777 
000241 
100411 
010377 
010277 
110477 



000540 

162274 
162254 
162244 



162256 
162226 
1622P4 



URITE THE DMA PARAMETERS OUT TO THE DUT DMA REGISTERS. 
DISABLE INTERRUPTS. 
SET UP DOT CSR IND.AOR.REG FIELD. 
URITE THE DMA TRANSMIT CHARACTER CO<JNT . 

URITE T»C LEAST SIGNIFICANT 16 BITS OF THE DMA BUFFER START ADDRESS. 
URITE T»€ MOST SIGNIFICANT 6 BITS OF THE ADDRESS. 

SETTING THE DMA.START BIT. AND INITIATING THE DMA TRANSMISSION. 

6«: GETPRI R5 iGET THE PRESENT PROCESSOR PRIORITY. 

TRAP cicpr: 

MOV R0,R5 

SETPRI «PRI07 iDISABLE MLL MAROUARE INTERRUPTS. 

MOV •PRIO'.RO 
TRAP C*SPRI 

BIS ItSTAT.Rl .PREPARE FOR SETUP OF LINE NUMBER IN OUT CSR. 

MOV Rl.aCSRA ,SET UP THE DUT CSR IND.AOR.REG FIELD. 

TSTB STXA02A (TEST THE OUT DMA.START BIT. 

CLC tINDICATE FAILURE IN CASE DMA. HO BIT IS >f T . 

BMl 60» lEXlT WITH FAILURE IF DMA. HO BIT IS SET. 

MOV RS.arxBfCfl jURITF THE DMA CHARACTER COUNT, 

MOV R2.8tXADlA iMRITE TmE LS 16 BITS OF BUFFER ADDRESS. 

MOVB R4,aTXADP>» lURITt MS 6 BITS Of ADR AND START DMA Tx, 



D8 



S<»06 017770 
017770 
01777? 

3t»07 017774 

S^08 

5609 017776 
017776 
9610 020000 



010500 
104441 
000261 



004 736 
000207 
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SETPftl R5 
SEC 

60S: PASS 

RTS PC 



iRESTORE THE PROCESSOR PRIORITY, 



I INDICATE SUCCESS. 



MOV 
TRAP 



RS,«0 
CtSPRI 



iRCSTORE GPRS. 

PC.a(SP)* iRETURN TO PREGOS SUBRT, 

I CARRt SUCCESS FLAG (SET IF SUCCESS). 



b8 
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H>12 
S613 
S614 

96)6 
3617 
S616 
S619 
S620 
5621 
962;? 
5629 
5624 
5625 
5626 
962'/ 
9629 
9629 
5630 
5651 



9652 
5655 
5654 
5655 

5657 
565a 
5659 
3640 
5641 
5642 
9643 
3644 
3645 
3646 
364/ 
3646 
3649 



3650 
3651 
3652 
5653 



020002 
020002 



020006 
020010 
020014 
020020 
020024 
020026 
020030 
020052 
020034 
020036 
020040 
020042 
020044 

020046 
020046 
02005? 
020056 



005001 
012705 
016700 
012705 
030500 
001006 
006305 
005201 
020103 
002772 
000241 
000401 
000261 



010166 
0103O6 
004736 
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.SSTTL GLOBAL SUBROUUNE 



«0 « 



PINACT 



riHO riRST ACTIVE LINE 
THIS SUBROUTINt CALCULATES THE NUMBER OF THE FIRST ACTIVE LiMfc THAT 
IS FOUND IN THE ACTIVE LINE BI' MAP ftCTLNS. 



INPUTS: 
OUTPUTS: 



ACTLNS CONTAINS THE ACTIVE LINE BIT MAP. 

Rl CONTAINS THE NUMBER OF THE FIRST ACTIVE LINE. 

R5 - CONTAINS THE BIT MAP REPRESENTATION OF THE ACTIVE I INE 

CARRY SET INDICATES SUCCESS. 



JSR 



CALLING SEQUENCE: 
COMMENTS: 

SUBORDINATE ROUTINES CALLED: NONE 



PC.FINACT 



004567 165316 



FINACT:: SAVE 



I SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 jCALL REGISTER SAVE SUBRT. 



000020 
162152 
000001 



2«: 



000004 
000014 



41: 

60$: 



I ♦ 

; FIND 

i - 

CLR 
MOV 
MOV 
MOV 
BIT 

BNE 
ASL 
INC 
CMP 

BLT 

cue 

BR 

SEC 

PASS 



AN ACTIVE LiNt ON WHICH TQ PERFORM THE TEST. 



Rl 

«NUMLNS.R3 

ACTLNS. RO 

♦ I.RS 

RS.RO 

4t 

R5 

Rl 

R1.R3 
2> 

60* 



R1.R5 



MOV 
MOV 
JSR 



i CLEAR THE LINE NUMBER COUNTER. 
sGET MAX LINE NUMBER. 
jGET THE ACTIVE LINE BIT MAP. 
{SET UP A LINE BIT MASK. 
(LOOK FOR AN ACTIVE LINE. 

J BRANCH TO BEGIN TEST IF A LINE MAS BEEN FOUND. 

I SHIFT THE BIT MASK FOP THE NEXT LINE, 

{INCREMENT THE LINE NUMBER COUNTER. 

{CHECK IF ALL LINES HAVE BEEN TRIED. 

{LOOP TO TRY THE NEXT LINE. 

J CLEAR CARRY BIT. NC AC '^'E LINE FOUND. 

{EXIT WITH FAILURE. 

I SET CARRY. SUCCESS. 

{RESTORE GPRS. EXCEPT 



{PUT Rl IN STACK SLOT. 
{PUT R5 IN STACK SLOT. 
{RETURN TO PREC05 SUBRT. 
CONTAINS THE NUMBER OF FIRST ACTIVE LINE. 
CONTAINS THE BIT MAP OF THE ACTIVE LINE. 



Rl.RlSLOTCSP) 
R5,R5SL0T(SP) 
PC.SCSP)' 
iRl 

|R5 



020060 000207 



RTS 



PC 



{CARRY - SET INDICATES SUCCESS. 



F8 
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Mb 

36!>7 
5658 
5659 
3660 
5661 
366^ 
5665 
5664 
5^^5 
5666 
5667 

5669 
5670 
3671 
5672 
3675 
5674 
5675 
5676 
3677 
56 7« 
5679 
5600 
5661 
5602 
S605 
3684 
5685 
3686 
S607 
5688 
5689 
5690 
3691 
3692 
5693 
5694 
5695 

5696 
5697 
3698 
5699 
3700 
5701 
3702 
3703 
3704 
3705 
3706 
370/ 
5708 
5709 

s-^io 



.SeiTL GLOeAL SUBROUTINE 



FRPSUP 



020062 
020062 
020066 
020072 



020076 
020102 
020106 
020112 
020114 
020116 
020122 
020126 
020130 



004567 
010067 
010167 



010067 
012700 
012720 
010220 
010320 
012720 
016710 
005104 
040420 



165256 
000230 
000226 



165020 
003124 
000004 



000001 
162044 



INPUTS: 



OUTPUTS: 



- FRAt^ING ANO PAPITY ERROR TRANSMISSION/RECkPT ION SET UP 

THIS ROUTINE IS USED TO INITIALISE BOTH THE OUT ANO THE 
TRANSMISSION/RECEPTION CONTROL PARAMETERS TO THE CORRECT 
STATE, PRIOR TO A FRAMING OR PARITY ERROR DETECTION AND 
REPORTING TEST. 

RO LPR CONTENTS FOR LINES IN THE BIT MAP IN GPR4 . 

PI LPR CONTENTS FOR LINES NOT IN THE BIT f'AP IN GPR4 . 

R2 START ADDRESS Of DATA PATTERN TO TRANSMIT. 

R5 LENGTH OF THE DATA PATTERN TO TX. 

R4 LOCAL LINE GROUP BIT MAP. 

ACTLNS - CONTAINS A BIT MAP OF ALL CURRENTLY ACTIVE LINES. 
LOPBCK - CONTAINS THE TYPE OF LOOPBACK MODE SELECTED. 
CBB LABEL AT BASE OF TX/RX CONTROL BLOCK. 

THE CONTENTS OF THE TXRCB ARE D«:STROYED. 

THE INDIRECT ADDRESS FIELD OF THE OUT CSR MAY BE DESTROYED. 

THE OUT'S LPR'S ANO LNC'S MAY BE MODIFIFD. 

THE FOLLOWING POINTERS ANO COUNTERS ARE INITIALISED; 

ChCNT . CMRTOT , OPENO . OPLEN . EXCNT . RXCNT . RXDON^ . RXP TR , TXCNT . 

TXOONF.TXPTR.TXRXL. 



CALLING SEQUENCE: 



JSR 



PC. FRPSUP 



COMMENTS: THIS ROUTINE SHOULD BE CALLED TWICE DURING THE TESTING OF 
THE FRAMING AND PARITY ERROR DETECTION ANO REPORTING TEST, 
SO THAT BOTH LINE GROUPS ARE TESTED ON TRANSMISSION AND 
RECEPTION. 

JSR PC. FRPSUP ; DO SET-UP. 

EXECUTE TEST FOR THE ABOVE SET UP. 

COMPLEMENT THE LINE GROUP BIT MAP. 

JSR PC.fRPSUP jOO SET UP AGAIN. 

EXECUTE TEST AGAIN. 

SUBORDINATE ROUTINES CAi.LED: TXRINI. 



FRPSUP:: SAVE 

MOV 
MOV 



iSAVE THE CONTENTS OF THE GPRS. 
JSR R5.PREG05 iCALL REGISTER SAVE SUBRT, 

R0.70$ I SAVE LPR PARAMETER FOR LINE TX. 

Rl,72« iSAVE LPR PARAMETER FOR LINE RX. 



I SET UP THE TRANSMISSION/RECEPTION CONTROL BLOCK TO INITIALISE THE 
J ACTIVE LINES IN THE BIT MAP PASSED INTO THIS ROUTINE. 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
COM 
6IC 



RC.CM 

•cm>2.R0 

•4.{R0). 

R2.(R0)» 

RS.CRO)* 

tl.(RO)* 

ACTLNS, (RO) 

R4 

R4,(R0)» 



I SET CONTENTS OF LPR PARAMS IN TX/HX C.BLK. 

iGET ADDRESS QF THE NEXT WORD IN THE CNTRL Bl 

iLNCTRL PARAMETER, ENABLE RECEIVERS. 

iSTART ADDRESS OF DATA PATTERN. 

»SET DATA PATTERN LENGTH. 

iNUMBER OF DATA PATTERNS TO TRANSMIT. 

iBIT MAP OF LINES TO INITIALISE. 

iGENERATE A BIT MAP OF ACTIVE LINES IN GRPl . 

(CLEAR THE UNWANTED LINES. 



G8 
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020152 


1 16 720 


162056 


5712 


020156 


005200 




5713 


020140 


012710 


000001 


5714 








5715 








5716 








571' 








571S 








5719 020144 


00m 7^ f 


00^534 


5720 








5721 








5722 








5725 


020150 


01^700 


AAV 4 

003122 


5724 


020154 






5725 


020156 


OOc/OO 


AAAAt A 


3726 


020162 


Olo7lO 


162004 


5727 


020166 






5728 020170 


0#v*iU 




9 • ef 








V7V/> 








J 1 OX 








J f 












004767 


AAKC AA 

005506 


















5756 








3757 








5738 








3759 








3740 








5741 








5742 


020176 


012 /Ol 


\ • 1 1 I 1 


3743 


020202 


OlO (Qc 


iDl '04 


3744 


020206 


005101 




3745 


020210 


A/IC 1 A^ 

OO510? 




3746 


020212 


A^ A4 A '\ 

040102 




3747 


020214 


040402 




3748 


020216 


010267 


162712 


5749 


020222 


005067 


162704 


3750 


020226 


016 767 


AAAA T '% 

0000 l£ 


3751 


020254 


004 /67 


005444 


5752 








5753 








5754 








5755 


020240 


010 r02 


lOl '26 


5756 


020244 


\/0310e 




575; 


020246 


A1 

040102 




3758 


020250 


AAC « AA 

005104 




5759 020252 


040402 




3760 


020254 


UlOeo 1 


16c6p4 


5761 


020260 


0X6 f6 7 


AAAA V£ 

000036 


5762 


020266 


nn4 9i;7 

VW* r 0 f 


nn^4i 3 


5765 








3764 








5765 








5766 








3767 









MCV8 LOPBCK.(RO). 

INC »0 

MOV ♦l.(«01 



;Sei LOOPBACK MODE. STAGG ARE D, 

J INCREMENT A00RES5 TO GET NEXT WORD IN TABLE. 
sSET WtlCJNT or OFFSET FOR EAC Tx START, 



t INITIALISE THE OUT AND THE ASSOCIATED POINTERS AND COUNTERS, TO THE STAT? 
; DICTATED 6^ THE CONTENTS OF THE TX/RX CONTROL BLOCK. 

JSR PC.TXRINI s INITIALISE OUT. 

i SET UP CONTROL BLOCK FOR LINES IN GftOL»> 2. 



MOV •CBB.RO iGET START ADDRESS OF CONTROL BLOCK. 

MOV Rl.fRO)* iSET LPR PARAMETER FQR Rx LINES. 

AOO 410. RO .SELECT THE ADDRESS OF THE LINE BIT MAP IN C.8. 

MOV ACTLNS,(RO) jBIT MAP OF LINES TO INITIALISE. 

COM R4 iGENERAfE A BIT MAP OF LINES IN GRP L\ 

BIC R4.CR0) I CLEAR THE UNWANTED LINES. 

i INITIALISE THE OUT AND THE ASSOCIATED POINTERS AND COUNTERS. TO THE STATE 
J DICTATED BY THE CONTENTS OF THE TX/RX CONTROL BLOCK. 

* JSR PC.TXRINI ;INITIALISE OUT. 

SET-UP THE REQUIRED LPR PARAMETERS NEEDED FOR THE CORRECT RECEPTION OF DATA 
1 ON ASSOCIATED IN ACTIVE LINES. 



i ♦ 



INITIALISE LPR PARAMETERS FOR INACTIVE LINES IN GROUP 2. 

MOV «MAPLNS.R1 jSET UP BIT MAP CORRESPONDING TO ALL LINES. 

MOV ACTLNS.R2 jGET THE ACTIVE (TX) LINE BIT MAP. 

COM Rl J GENERATE A BIT MAP OF NONE EXISTANT LINES. 

COM R2 jGENERATE A BIT MAP OF INACTIVE LINES. 

BIC RI.R2 ;CLEAR ANT "NONE EXISTANT" IWCTIVE LINES. 

BIC R4,R2 

MOV R2.CBMAPA jSET UP BIT MAP IN CONTROL BLOCK. 

CLR CBDPNA i CLEAR REPEAT TX COUNT IN CONTROL BLOCK. 

MOV 72$.CBLPRA jSET-gP COMPLEMENTARY LPR PARM. 

JSP PC.TXRINI INITIALISE INACTIVE LINES. 



I ♦ 



INITIALISE lPR PARAMETERS FOR INAACTIVE LINES IN GROUP 1. 

* MOV ACTLNS.R2 iGET THE ACTIVE CTX) LINE BIT MAP. 

COM R? {GENERATE A BIT MAP OF INACTIVE LINES. 

BIC RI.R2 jCLEAR ANY NONE EXISTANT INACTIVE LiNfS. 

COM R4 ; 

BIC R4, R2 jONLY PASS LGRP2 ASSOCIATED LINE BIT MAP. 

MOV R2.CBMAPA jSET-UP BIT NAP IN CONTROL BLOCk. 

MOV 70».CBLPRA ;SET UP COMPlAMENTARy LPR PARAM FOR LGRPl 

JSR PC.TXRINI {INITIALISE INACTIVE LINES IN LCRPl. 

! DISABLE RECEIVERS ON ALL LINES TO ENSURE THAT ONLY THE RECEIVERS OF THE 
{ ASSOCIATED ACTIVE (TX) LINES ARE ENABLED. (STAGCARED LOOPBACK) 
; RE 'ENABLE RECEPTION ON THE CORRECT ASSOCIATED LINES. 
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5 768 
3769 

S770 

S7n 

5772 
5775 
5774 
5775 
5776 
5777 

5778 
57 79 
5780 
5'Sl 



020272 
020276 



020502 
020506 
020512 

020516 
020516 
020520 
020322 
020524 



012/05 177777 
004767 004002 



016705 161664 
004767 177070 
004767 004062 



004756 
000207 
000000 
000000 



nov 
JSR 



•HAPLNS.ftS 

pc.RxoseL 



»SET UP BIT MAP rOR ALL LIHES. 
iDISABLE RX ON AiL LINES. 



ENABLE RECEIVERS ON ASSOCIATED CRX) LINES. 



60»: 



70»! 
72*! 



NOV 
JSR 
JSR 

PASS 



ACTLNS.R5 
PC.CONHAP 
PC.RXENBL 



iGET ACTIVE iTX) LINE BIT MAP. 

(GENERATE AN ASSOCIATED (RX) LINE BIT MAP, 

(ENABLE RECEIVERS ON ASSOCIATED LINES. 



RTS PC 
.WORD 0 
,MORD 0 



JSR 



;RESTORE GRP'S. 
PC.aCSP). 



jRETURN TO PREG05 SUBRT 



iLOCAL STORAGE Of LPR PARAMETER Tx. 
iLOCAL STORAGE OT LPR PARAMETER RX. 



5709 
57«4 
5705 
S706 

J7ar 

37$» 

37n 

5794 

5795 
3796 
5797 
3798 
5799 
5600 
5801 
5802 
5805 

5804 
5805 
5806 
5807 
5808 
5809 



saio 
lau 

5612 
S615 
5^14 
5815 
5616 
5617 
5616 
5619 
5620 
5621 
5622 
5825 
5824 
582S 
S826 
5627 
5626 



020526 
020526 
020552 



020556 
020544 
020544 
020546 
020550 
020552 
020554 
020556 
020560 
020562 
020564 
020564 



020570 
020574 

020400 
020402 
020404 
020406 

020410 
020412 



020414 
020414 
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GETBOR 



004567 
016705 



164772 
16167? 



012767 002260 161664 

104445 
000406 
002250 
000052 
010020 
177777 
000000 
115000 

016702 161640 



012701 
012705 

020245 
001416 
005501 
001574 

020245 
001412 



010246 



000017 
002464 



GET B#lARATE SUBROUTINE 
THIS ROUTXIC REQUESTS A BAUORATE INPUT rRQPI THE OPERATOR. THIS 
j« BAUDRATE IS cOOKEO UP IN A TABLE TO GIVE THE LPR BAUDRATE » lELO 

• VALUE aniCM IS ASSOCIATED MtTM THAT BAUDRATE. 

• IttfXjTS; BORHSG LABEL AT THE BAUDRATE PROHPT MESSAGE. 

• BRTBLE LABEL AFTER END 0^^ THE B^UURATE TABLE. 
UBRTHT LABEL AT THE UhSUPPQHTEO BAUDRATE MESSAGE. 



!• OUTPUTS: Rl - 
J* 

t» CALLING SEQUENCE: 
J • 

j» COMMENTS: 
»• 

S'JBOROINATE ROUTINES CALLED 



BAUDRATE CODE IN LS 4 BITS. 
J<^« PC.GETBDR 



NONE. 



JSR 
GMANU0.R5 



GETBDR:: SAVE 
MOV 

PROMPT THE OPERATOR: 
2*: 



5 SAVE CONTENIS Of GPRS RO THRU R5. 
«5,PREG05 jCALl REGISTER SAVE SUBRT. 

sSAVE THE GMAINIX VALUE. 



•MODEM BAUDRATE IN BPS: CD) 1200 ?' 



MOV 
GMANIO 



MOV 



•1200..GMANUD sSET UP DEFAULT VALUE TO 1200 BAUD. 

B ORM SG , GM ANUC . 0 . 1 7 7 7 7 7 , 0 , 564 00 . . » E S 

TRAP 
BR 

.UORO 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

100001: 

GMANWD.R^ 



CIGMAN 
10000» 
GMANUO 
TICODE 
BORMSG 
177777 
TILOLIM 
T$HlLIf« 



J ATTEMPT TO LOOK THE VALUE UP IN THE BAUDRATE TABLE. 

* MOV ♦15..RI J INITIALIZE BAUDRATE CODE TO HIGHEST BAUDRATE. 
MOV •BRTBLE.RS {INITIALIZE BAUDRATE POINTER. 

Ail CMP R?. (fl5) iCOMPARE BAUDRATE WITH A TABLE ENTR» . 

Bl\i 60» :BAUDRATES COMPARE? »ES. EXIT WITH CODE. 

DEC HI jNO. SET BAUDRATE CODE TO NEXT LOWER Brt».CRATE . 

ONE 4» jDONE? NO. LOOP. 

CMP R2. (R?) : CHECK IF LAST BAUDRATE MATCHES. 

BEQ 60t iBAUDRATES MATCH? tES. EXIT uITH CODE. 

I'rEPORT NNNNN is NOT A SUPPORTED BAUDRATE, ENTER ANOTHER OR CTRL C. 

* PRINTF CUBRFMT.R^ 



OML II fiJhC TST PMr4 



0^0416 
020422 
02042t> 
020450 
0204 S2 

i62'* 020456 

5$ 50 

565* 020440 
5B5^ 020444 
020444 

020450 
5955 020452 
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012746 001722 
012746 000002 
010600 
104417 

062706 000006 
0007S7 

010567 161564 

010166 0<-0004 

004^56 

000207 



60S: 



BR 

HOV 
PASS 



RTS 



70 1 



'to IV/ 



.GTIANUD 



NOW 

JSR 



MOV ••JBRrMT. -fSP) 

MOV ♦2.-(SP) 

MOV SP.RO 

TRAP CiPNTr 

jloop to get another BAUORATE. '^^ ***^ 

jRESTORE THE GMANIX PARAMETER VALUE 
sRESTORE GPRS. EXCEPT THE FOLLOUING- 
^^•S,1|L0TCSP) .PUT Rl IN ilACK S.L0T. 

r-?i'''BAUORATE CODE . '"'^^'^ '° "^^^^^ 



PMT4 



PAGE 7x 



sta 10 



5«55 
9696 
5857 
9836 
96 90 
S640 
9641 
964/ 
9649 
9644 
964^ 
9646 
964 7 
9646 
9644 
96W 
9651 
965^ 
9659 
9654 
9655 
9656 
9657 
9858 
9839 
9860 
9661 

966^ 
9669 
9864 
9665 
9866 
9867 
966S 
9669 
9870 
9871 
9872 
9879 
9874 
9875 
9676 
5877 



9878 
9879 
9860 



020454 
020454 
020460 
020462 
020464 
0204 70 
020472 
020476 
020500 
020502 
020506 
020510 
020514 

020520 
020524 

020526 
020526 
020592 



004567 
005000 
005002 
005767 
001416 
016704 
011402 
005024 
020427 
109402 
012704 
010467 

005967 
000261 



010266 
004 796 



164644 

162226 
162214 

009120 

002720 
162172 

162172 



000006 



.SSTTL GLOBAL SUBROUTINE 



GEICMR 



GET A CHARACTER fROM THE RX BUFFER ROUTINE - 
THIS SUBROUTINE GETS A CHARACTER FROH tmE RX BUFFER UHICM IS IN THE 
MOST SYSTEM MEMORY. IF THE BUFFER IS EMPTY UPON ENTRY OF THIS ROUTINE 
THIS ROUTINE RETURNS A NULL CHARACTER WITH DATA. VALID CLEAR AND A 
BUFFER EMPTY INDICATION. 



s* 
I* 
.* 
* 
* 

* 
* 
* 

* 
* 

* 

* 
* 
* 

I* 

s* 



IW»UTS: 



OUTPUTS: 



RXBCNT RX BUFFER CHARACTER COiJNT . 

RXBEND - LABEL AFTER END OF THE RX BUFFER AREA IN MEMORY. 
RXBETX EQUATED TO RX BUFFER LEVEL AT WHICH TO ENABLE TX. 
RXBOPT POINTER TO NEXT AVAILABLE INPUT SLOT OF RX BUFFER. 

RXBSTA - LABEL AT START OF RX BUFFER AREA IN MEMORY, 

R2 - CHARACTER WHICH IS READ FROM THE BUFFER. 

RXBOPT UPDATED TO POINT TO NEXT INPUT SLOT OF RX BUFFER. 

RXBCNT RX BUFFER CHARACTER COUNT (UPDATED). 

CARRY "SUCCESS" FLAG CSET IF BUFFER IS NOT EMPTY ON ENTRY), 



JSR 



CALLING SEQUENCE: 
COMMENTS : 

SUBORDINATE ROUTINES CALLED: NONE 



PC.GETCHR 



GETCHR:: SAVE 



CLR 
CLR 
TST 

BEG 
MOV 
MOV 
CLR 
CMP 

BLO 
MOV 
MOV 



2%: 



60«: 



020594 000207 



DEC 
SEC 

PASS 



RTS 



I SAVE CONTENTS OF GPRS RO THRU R5. 

JSR R5.PREG05 iCALL REGISTER SAVE SUBRT. 

RO jCLEAR THE "RE -ENABLE" TX FLAG (SUBRTN OUTPUT). 

R2 :GET NULL CHAR IN CASE BUFFER IS EMPTY. 

RXBCNT t CHECK FOR RX BUFFER EMPTY, CLEAR CARRY. 

60* tEXiT THE ROUTINE IF BUFFER IS EMPTY, 

RXBOPT. R4 sGET THE BUFFER OUTPUT POINTER. 

(R4).R2 tGET A CHARACTER FROM THE BUFFER. 

CR4)» ; DELETE THE READ CHARACTER FROM THE BUFFER. 

R4.#RXBEN0 j CHECK IF POINTER SHOULD WRAP AROUND, 

2$ :SKIP WRAPAROUND IF POINTER IS NOT AT EfO. 

•RXBSTA. R4 :WRAP INPUT POINTER AROUND. 

R4. RXBOPT {UPDATE THE OUTPUT POINTER STORAGE. 

RXBCNT iREMOVE THIS CHAR FROM THE BUFFER COUNT. 

;SET SUCCESS FLAG. BUFFER WAS NOT EMPTY. 

{RESTORE GPRS. EXCEPT 
MOV R2.R2SL0T(SP) iPUT R2 IN STACK SLOT. 

JSR PC,»(SP)» {RETURN TO PREG05 SUBRT, 

(R2 - CONTAINS THE CHARACTER READ FROM BUFFER. 
{CARRY -"SUCCESS" FLAG. SET IF BUFFER NOT EMPTY. 

PC 



R2 



L8 



o«u II f>JhC rsr PA«t4 
Global sioroutinl 

M85 
3084 
S805 
9886 
$887 
5838 
5869 
5890 
5891 
589? 
5895 
5894 
5895 
5896 
5897 
5898 
5899 
5900 
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'*0 10 



5901 


020536 








020536 


004567 


164562 


5902 


020542 


000301 




5905 


020544 


042701 


177400 


5904 


020550 


010102 




5905 


020552 


042701 


000360 


5906 


020556 


006202 




5907 


020560 


006202 




5906 


020562 


006202 




5909 


020564 


006202 




5910 


020566 


020102 




59U 


020570 


101401 




5912 


020572 


010201 




5915 


020574 


116102 


005214 


5914 


020600 


042702 


177400 


3915 


020604 


010267 


161436 


5916 








5917 


020610 








020610 


004736 




3918 


020612 


000207 





GETTIM 



J* 

!* 

* 
* 
* 

J* 
I* 
J* 
J* 
}♦ 
J* 
t ■ • 



GET TIME-OUT VW.UE BASED ON MINIMUM BAUDRATE ROUTINE - 
THIS SUBROUTINE GETS THE NECESSARY TIME OUT VALUE TO VERiry THAT ALL 
CHAAS HAVE BEEN RECEIVED AT THE COMPLETION Of THE TX/RX Of A DATA 
PATTERN. THIS USES THE SLOWEST BAUORATE VtHlCH IS SPECiriEO IN THE 
PASSED IN OUT LPR CONTENTS TO CALCULATE THIS TIME OUT VALUE. 

I»*»UTS: Rl OUT LPR CONTENTS. 

OUTPUTS: RXTOUT TIME OUT VALUE FOR UAITING FOR LAST RX CmAR. 

CALLING SEQUENCE: JSR PC. GET TIM 

COMMENTS: 

SUBORDINATE ROUTINES CALLED: NONE. 



GETTIM:: SAVE 



JSR 



2(: 



601: 



SWAB 


Rl 


6IC 


•177400, Rl 


MOV 


R1,R2 


SIC 


#560. Rl 


ASR 


R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


CMP 


R1.R2 


BLOS 


2« 


MOV 


R2.R1 


MOVB 


PR0TBL{R1).R2 


BIG 


*177400.R2 


MOV 


R2, RXTOUT 


PASS 






JSR 


RTS 


PC 



tSAVE CONTENTS OF GPRS RO THRU R5. 
R5.PREG05 J CALL REGISTER SAVE SUBRT. 

PUT THE BAUD RATE FIELDS IN THE LOU BYTE. 

CLEAR STOP. PARITY. AND CHAR FIELDS. 

COPY BAUD RATE FIELDS. 

SELECT RX BAUD RATE FIELD ONLY. 

SHIFT TX BAUD RATE FIELD 
TO OCCUPY THE LOU FOUR BYTES. 



jCHECK IF SAME BAJD RATE IN EACH FIELD. 
{BRANCH IF RX BAUD RATE IS LOUER OR SAME. 
jTX BAUD RATE IS THE SLOUER OF THE TUO. 
iGET PROPORTIONAL DELAY FROM TABLE. 
; CLEAR UPPER BYTE BECAUSE OF SIGN EXTENSION. 
;LOAO THE RX TIME OUT VARIABLE. 



iRESTORE GPRS. 
PC.aCSP)* 



t RE TURN TO PREG05 SUBRT. 



M8 
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39^0 




5921 




392^ 




5923 




5924 




5925 




5926 




5927 




5926 




5929 




5950 




5951 




5952 




5955 




5954 




5955 




5956 




5957 




5956 




SA 

3959 




• AAA 

5940 




• AA 4 

5941 




5942 




5943 




5944 




S Ail K 

3945 




3946 




394 7 




3946 




V A A A 

3949 




W AK A 

3950 




V AK 4 

3951 


020614 




020614 


3952 


020620 


3955 




V AK il 

3954 




3955 




3956 


020024 


SAC 7 




3950 




3959 




3960 






020626 


3962 


A^ A^ VA 

020630 


996o 


020632 


3964 


020636 


3965 


020640 


9 TOO 




396 7 




396o 




VAX A 

3969 








3971 


020642 


3972 


020646 


S975 




S974 




3975 





SBTTL GLOBAL SUBROUTINE 



INIDHA 



INITIATE OfIA TRANSMISSIONS ROUTINE - 
THIS ROUTINE 13 USED TO INITIATE DMA MODE TRANSMISSION. IT SENDS 
Tt« INITIAL DMA BUTFER ON EACH ACTIVE LINE TO CAUSE FUTURE TX 
INTERRUPTS WHICH WILL CONTINUE THE TRANSMISSION IF MORE THAN ONE 
BUFFER IS TO BE SENT. 



INPUTS: 



OUTPUTS: 



ACTLNS - ACTIVE LINES BIT MAP. 

BITTBL - LABEL OF TABLE OF UOROS EACH WITH A BIT SET. 

CSRA - CONTAINS THE ADDRESS OF THE DUT CSR. 

OPENDB BASE OF THE DATA PATTERN END TABLE (ENTRY PER LINE). 

OPLENB BASE OF THE DATA PATTERN LENGTH TABLE. 

lESTAT - preserve:. STATES OF THE DUT INTERRUPT ENABLE BITS. 

NUMLNS - EQUATED TO NUMBER OF LINES ON A OuT. 

TXCNTB - LABLE AT BASE OF THE TX CHARACTER COUNTER TABLE. 

TXPTRB - LABEL AT BASE OF THE TX DATA PATTERN POINTERS TABLE. 

CSR - DUT CSR IND.AOR.REG FIELD IS DESTROYED. 

<<<<<<<<<<<<<<<<<< ADD COMMENTS <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
TXCNTX COUNTERS INCREMENTED FOR LINES ON WHICH CHARS SENT. 
TXINTF TX INT FLAGS (BIT SET IF DMA. HO FOUND SET ON LINE). 



CALLING SEQUENCE: 
COMMENTS: 



JSR 



PC.INIDMA 



THIS ROUT I "^E ASSUMES THAT AT LEAST ONE DATA PATTERN SHOULD BE 
TRANSMITTED ON EACH ACTIVE LINE. 

INTERRUPTS MUST BE DISABLED WHEN CALLING THIS ROUTINE. 



SUBORDINATE ROUTINES CALLED: DOGMA. 



004567 
016705 



005001 



010104 
006304 
016402 
030205 
001414 



016403 
016402 



164504 
161346 



INIOMA:: SAVE iSAVE CONTENTS OF GPRS RO THRU R5. 

JSR R5.PREG05 iCALL REGISTER SAVE SUBRT. 

MOV ACTLNS. R5 iGET THE ACTIVE LINES BIT MAP. 



> » 



SET UP LOOP WHICH HANDLES ONE LINE PER ITERATION. 



CLR 



Rl 



(CLEAR THE LINE NUMBER COUNTER. 



( ♦ 



J GET A BIT MAP OF THE SELECTED LINE. 
t IF THE LINE IS INACTIVE SKIP TO SELECT THE NExT LINE. 



2t: 



002364 



MOV R1.R4 

ASL R4 

MOV BITTBL(R4).R2 

BIT R2,R5 

BEQ 10» 



I CALCULATE AN OFFSET TO THE PROPER LINE 
t ENTRY IN A WORD TABLE (LINE ♦ TIMES 2). 
jGET A BIT MAP FOR THIS LINE. 
iTEST THE ACTIVE LINES BIT FOR THIS LINE. 
jDON'T TX ON THIS LINE IF IT IS NOT ACTIVE. 



LINE IS ACTIVE. 

INITIATE DMA ON THIS LINE. 

GET THE DATA PATTERN LENGTH FQR THIS LINE. 



003202 
003342 



MOV DPLENB(R4),RS 
MOV TXPTRB(R4;.R2 



jGET DATA PATTERN LENGTH FOR THIS LINE. 
{PREPARE TO PASS DATA PATTERN ADR TO DOOMA RTN. 



WRITE DMA PARAMETERS TO THE OUT. 



N8 
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5976 
5977 
J97« 
5979 
5980 
5981 
5982 
5985 
5984 
5985 
5986 
5987 
5988 
5989 
5990 
5991 
5992 
5995 
5994 

5995 



020652 
020656 



020660 
020664 



004/67 
105403 



050567 
000402 



020672 
020674 

020700 

020702 
020702 
020704 



005201 
020127 
002752 



004756 
000207 



177054 



161400 



020666 060364 005502 



000020 



JSR 
BCS 
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PC.OOOMA 
6< 



jSKiP ERROR IP OOOMA UAS SUCCESSFUL. 



SET THE PROPER B^T QF THE TX INTERRUPT FLAGS TO I^4DICATE THE LINE ERROR. 

BIS R5.TXINTF J INDICATE THE ERROR. 

BR 10$ :SKIP UPDATING POINTERS AND COUNTERS. 

UPDATE THE TX CHARACTER COUNT FOR THIS LINE. 

ADD R3.TXCNTB(R4) jADD THE DATA PATTERN LENGTH TO TX CHAR COUNT 

INCREMENT LINE COUNTER. GOTO NEXT LINE IF NOT DONE. 

10$: 



St: 

; 



eOi: 



INC 
CMP 
BLT 

PASS 

RTS 



Rl 

RI.«NUMLNS 
2$ 



{INCREMENT THE LINE COUNTER. 
; COMPARE THE LINE COUNTER WITH NUMBER OF LINES. 
I LOOP TO SEND CHAR TO ANOTHER LINE IF NOT DONE. 



PC 



JSR 



s RES TORE GPRS. 
PC.a( SP)» 



{RETURN TO PREG05 SUBRT. 



B9 



OMU 11 

4000 
4001 
4002 
400S 
4004 
4005 
4006 
4007 
4000 
4009 
4010 
4011 
4012 
401S 
4014 
4015 
4016 
4017 
4010 
4019 
4020 
4021 

4022 
4023 
4024 
4025 



4026 



SlfWOUTINt 
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020706 
020706 
020712 
020716 
020720 
020724 
020724 
020750 
020732 



004567 
042701 
006301 
016100 

010066 
0047S6 
000207 



164412 

177760 

002364 
000002 



.sent GLOBAL SUBROUTINE 



LINBIT 



J* 

J* 
J* 



LINE NUMBER TO BIT flAP CONVERSION SUBROUTINE 
THIS SUBROUTINE IS USED TO GENERATE A BIT MAP (ONE BIT OF 16 SET) 
BASED ON A LINE NUMBER (RANGE: 1 TO 16). ONLT THE LS 4 BITS Of THE 
LINE NUMBER UORO ARE USED. THE OTHERS ARE MASKED OUT (SO UNMASKED 
MSBtTES of iXJT CSRS CAN BE PASSED TO THIS ROUTINE WITHOUT ERROR). 



IWUTSs 



• OUTPUTS: 



RI LINE NUMBER (ONLT LS 4 BITS USED, OTHERS DISREGARDED). 
BITTBL BASE LABEL OF A 16 UORO BIT TABLE. 

RO BIT MAP. BIT CORRESPONDING TO LINE NUMBER IS SET: 
IF LINE NUMBER IS S. THEN BITS IS SET. £1^. 



CALLING SEQUENCE: 



JSR 



PC. LINBIT 



»• 

I 



COMMENTS: NO CHECKING IS PERFORMED TO VERIFY THAT THE LINE NUMBER IS 
A LEGAL LINE NUTSER FOR THE OUT ( IE - LESS THAN NUMLNS). 
NOTE: THE LINE NUMBER IS NOT DESTROYED OF ALTERED. SO THIS 
ROUTINE CAN BE USED EASILY IN LOOPS. 

SUBORDINATE ROUTINES CALLED: NONE. 



LINBIT: 



SAVE 



BIC 
ASL 
MOV 

60 »: PASS 



RTS 



JSR 
•177760. Rl 
Rl 

BITTBL(R1).R0 
RO 

MOV 
JSR 

PC 



StO 10', 



I SAVE CONTENTS OF GPRS RO THRU R5. 
R5.PREG0S (CALL REGISTER SAVE SUBRT . 

iMASK OUT ALL BUT 4 LSBITS OF THE LINE 
iMULTIPLT LINE « BY 2 TO GET WORD TABLE OFFSET. 
(GET THE SINGLE BIT BIT MAP, 
•RESTORE GPRS. EXCEPT THE FOLLOWING. 
RO.ROSLOKSP) iPUT RO IN STACK SLOT. 

PC.aCSP). I RE TURN TQ PREC05 SUBRT. 

iRO BIT MAP WITH LINE • BIT SET. 



C9 



fO 196 



40J» 
40JO 
4050 
4031 
40SJ 
4095 
4054 
405^ 
4056 
4057 
4050 
405^ 
4040 
4041 
4042 
4045 
4044 
4045 
4046 
4047 
4046 
4049 
4050 
4051 
405; 
4055 
4054 
405? 
*0U> 
4057 
405« 

4059 
4060 
4061 
4062 
406S 
4064 
4065 
4066 
406^ 
4068 
4069 
4070 
4071 
4072 
4075 
4074 
40 ■•S 
4076 
4077 
4078 
4079 
4060 
4061 
4062 
4085 
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020754 
020754 
020740 
020744 
020750 
020754 



020760 
020764 
0^0770 
020772 
020774 
021000 
021002 
021004 
021010 
021014 
021020 
021022 



004567 
005067 
005067 
005067 
005067 



010167 
012701 
005201 
005201 
012721 
010221 
010521 
012721 
016721 
112721 
005201 
012711 



164564 

161552 
161514 
161526 
16 1524 



162156 
005122 



011004 



000001 
161156 
000005 

00000? 



MODEM LOOPBACK TX/Rx SET OP ROUTINE 

THIS ROUTINE IS USED TO INITIALISE BOTH THE OUT AND THE 
TRANSMISSION/RECEPTION CONTROL PARAMETERS TO THE CORRECT 
STATE. PRIOR TO A MODEM LOOPBACK TEST DATA PATTERN Tx/RX. 

lapUTS: Rl TX. RX LPR CONTENTS. 

R2 START ADDRESS OF DATA PATTERN TO TRANSMIT. 
R5 LENGTH OT DATA PATTERN. 

ACTLNS CONTAINS A BIT MAP OF ALL CURRENTLt ACTIVE LINFS. 
COB - LABEL AT BASE OF TX/RX CONTROt BIOCK. 

OUTPUTS: THE CONTENTS OF THE TX/RX CONTROL BLOCK (CCB) ARE 0ESTR0»F0. 

THE INDIRECT ADDRESS FIELD OF THE OUT C5R MAT BE DESTROtED. 

THE OUTS LPR'S AND LNCS MAY BE MODIFIED. 

THE FOLLOWING POINTERS AND COlMTERS ARE INITIALISED} 

ChCNT . CHR TOT . OPEND . OPLEN , EXCNT . RXCN T , RXP TR , T XCNT . 

TXPTR.TXRXL. 

CHRTOT. RXDO»r. TXOO»r AND TXINTF ARE CLEARED. 



CALLING SEQUENCE 
COMMENTS: 



JSR 



PC.MOOSUP 



DUT IS SET UP WITH DSR AND DTR SET. 
SENT AND RECEIVED FRQH EACH LINE. 

SUMROINATE ROUTINES CALLED: CONMAP . RXENBL . T ''INI. 



ONE DATA PATTERN IS 



MODSUP:: SAVE 

CLR 
CLR 
CLR 
CLR 



iSAVE CONTENTS OF THE GPRS RO THRU R5. 
JSR R5.PREG05 iCALL REGISTER SAVE SUBRT. 

CHRTOT I CLEAR TOTAL RECEIVED CHAR COUNTER. 

TXINTF iCLEAR FLAGS USED TO LOG DMA H.QVER ERRORS. 

TXDOr iCLEAR THE TX DONE FLAGS. 

RXDONF iCLEAR THE RX DONE FLAGS. 



I ♦ 



SET UP THE TRANSMISSION/RECEPTION CONTROL BLOCK TO THE DESIRED STATE. 



MOV Rl.CBB 

MOV •CB6.R1 

INC Rl 

INC Rl 

MOV 411004. (Rl)» 

MOV R2.CRn» 

MOV R5.{Rl). 

MOV •l.(Rl)» 

MOV ACTLNS. <R1)» 

N0V6 «5.(Rn> 

INC Rl 

MOV ♦2,(Rl) 



iSET CONTENTS OF LPR PARAMS IN TX/RX C.BLK. 

iCET BASE ADDRESS OF CONTROL BLOCK. 

(INCREMENT ADDRESS FOR NEXT WORD 

{INITIALISE THE FOLLOWING IN THE CNTRL.BLKt 

I LNCTRL: RTS. DTR, ENABLE RECEIVERS. 

I START ADDRESS OF DATA PATTERN. 

I DATA PATTERN LENGTH. 

I NUMBER OF DATA PATTERNS TO TRANSMIT. 

t BIT MAP OF LINES TO INITIALISE. 

I SET LOOPBACK MODE TO M525. 

I INCREMENT ADDRESS FOR THE NEXT WORD. 

iSET AMOUNT OF OFFSET EACH TX STARTS AT fQ . 



021026 004 767 004652 



I INITIALISE THE OUT AND THE ASSOCIAFEO POINTERS AND COUNTERS, TO THE S'rtTt 
t DICTATED Br THE CONTENTS OF THE TX/RX CONTROl BLOCK. 

' JSR PC.TXRINI t INITIALISE OUT. 

I » 



D * 



H«CRO HI. 
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4004 
4005 
4006 
4007 
4000 
4009 
4040 
4091 
4092 
409S 
4094 
4095 
4090 

4097 



t INITIALISE PCINTtRS AND COUNTERS FOR INACTIVE LINES TO ZERO, 



021052 
0210M 
021042 
021044 
02104« 
021050 
021054 
021060 
0210M 

021070 
021070 
021072 



012701 
016702 
005101 
005102 
040102 
010267 
005067 
005067 
004 767 



004756 

000207 



1*7777 
161150 



162060 
162044 
162046 
004614 



60<: 



nov 
nov 

COM 

con 

BIC 
HOV 
CLR 
CLR 
JSR 

PASS 

RTS 



•nAPLNS.Rl 

ACTLNS.R2 

Rl 

R2 

RI.B2 

RP.CBnAPA 

CBLNCA 

CBOPNA 

PC.TXRINI 



PC 



JSR 



iGCT THE LINE BIT MAP TOR ALL LINES. 

iGCT THE ACTIVE LINE BIT HAP. 

I 

{generate AN IN ACTIVE LINE BIT MAP. 
iHOVE BIT MAP TO THE CONTROL BLOCK. 
1 CLEAR THE LNCTRL SE T UP PARAMETERS. 
;CLEAR THE REPEAT TX COUNT IN CNTRL BLCK . 
iSfel UP PARAMETERS POR INACTIVE LINES. 



jRESTORE GPRS. 
PC.WSP). 



{RETURN TO PREG05 SUBRT. 



40<W 
4100 
4101 

aio*"* 
4105 
4104 
410'^ 
410t> 
410' 
410» 
410'» 
4110 
4111 
4 Hi' 
4115 
4114 
4llf> 
4116 
4117 
4116 
4U9 
4120 
4121 
4122 
4125 
4124 
4125 
4126 
4127 
4126 
4129 
4150 
4151 
4152 
4155 
4154 
4155 
4156 
4157 

4156 
41W 
4140 
4141 
4142 
4145 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 
4155 
4154 



021074 

021074 004567 164224 



021100 005102 
021102 040205 



021104 005701 

021106 001011 

021110 011400 

021112 010067 000070 

021116 040200 

021120 020005 

021122 00C261 

021124 001420 
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.s8TTt glosal subroutine 



MSLGET 



• MILLI SECONDS LOOP WHICH RETURNS READ WORD AND REMAINING TIMf 

• THIS SUBROUTINc IS A GENERAL PURPOSE TEST LOOP SUBROUTINE. II IS USED 

• TO VERIFY THAT A CERTAIN ACTION OCCURS BEFORE A TIME-OUT PERIOD. THE 

• CALLING ROUTINE PASSES IN WHICH BITS SHOULD BE SET AND CLEARED FOR THE 

• OeSIREO CONDITION AND THE TIME-OUT VALUE IN MiLLi SECONDS. 

THIS ROUTINE CHECKS fQR THE DESIRED CONDITION UPON ENTRANCE INTO THE 

• ROUTINE AND THEN ONCE EACH MILLI SECOND THERE AFTER. 

• UPON RETURN. THE LAST WORD WHICH WAS READ TO CHC'CK FOR THE CONDITION 

• IS RETURNED Br THIS SUBROUTINE. 

• I>*»UTS: PI TIME-OUT VALUE IN MILLI SECONDS (UP TO 64K MS). 

• R2 - BIT MAP OF BITS TO TEST (1 INDICATES TO TEST THE BIT), 
R3 DESIRED STATES OF THE INDICATED FIELDS IN R2. 
R4 ADDRESS OF THE WORD TO TEST. 
MSLCNT - MILLI SECOND SOFTWARE LOOP COUNT. 

OUTPUTS: RO - THE LAST WORD WHICH WAS READ TO CHECK FOR THE CONDITION. 

Rl REMAINING NUMBER OF MS IN TIHE-OUT TIME. 

CARRY SUCCESS FLAG (SET IF CONDITION IS MET BEFORE TIME OUT), 



« 
« 

4 

* 
I* 
!* 
J* 
i* 
8* 
!• 
»• 
S* 
»• 
»• 

I* 
»• 
«• 



CALLING SEQUENCE: 



JSR 



PC. MSLGET 



COMMENTS: THIS ROUTINE WORKS WITH OR WITHOUT A HARDWARE CLOCK. BUT THE 
CALIBRATION IS ONLY GUARENTEEO WHEN A LINE CLOCK IS AVAILABLE 
ON THE SYSTEM. 

THIS ROUTINE CAN BE USED AS A DELAY ROUTINE, BY SPECIFYING THE 
DESIRED DELAY AS THE TI^€-OUT AND SPECIFYING A CONDITION TO 
LOOK FOR WHICH WILL NOT BE MET DURING THE DELAY. 
IF A TIME OUT VAI.UE OF 0 IS SPECIFIED. THIS ROUTINE CHECKS FOR 
THE DESIRED CONOiriON BEFORE RETURNING. IT INDICATES SUCCESS 
IF THE CONDITION IS MET. FAILURE OTHtRWiSE. 



t" SUBORDINATE ROUTINES CALLED: NONE. 



MSLGET: ! SAVE 

!*S£T UP MASK FOR REMOVING UNUSED BITS IN THE TEST WORD. AND CLEAR UNUSED 
t BITS IN THE DESIRED STATE WORD TO ALLOW OlftECT COMPARISON. 



JSR 



J SAVE CONTENTS OF GPRS RO THRU H5. 
R5.PREG05 iCALL REGISTER SAVE SUBRT, 



COM 
BIC 



R2 

R?,R5 



iGET MASK OF UNUSED BITS. 

{MASK OUT UNUSED BITS IN OESIREO STATE WORD, 



J HANDLE THE TEST AND EXIT IF WE HAVE A 0 TIME-OUT VALUE. 



TST 
BNE 
MOV 
MOV 
BIC 
CMP 
SEC 
BEQ 



Rl 
2« 

Cfl4).R0 
R0.62I 
R2.R0 
RO.RS 

6t 



I TEST THE TIME -OUT VALUE FQR ZERO. 

J IF NON-ZERO TIME-OUT, GO LOOP ANO TEST. 

iCET THE WORD TO TEST BEFORE EXITING. 

sSAVE VALUE SO WE CAN RETURN IT. 

iMASK OUT UNTESTED BITS OF WORD. 

J COMPARE AGAINST DESIRED STATE WORD. 

t INDICATE SUCCESS IN CASE WORDS ARE EQUAL 

(EXIT WITH SUCCESS IF WORDS ARE EOUAl . 



F9 



MACRO mpoo 
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<;co i<y* 



4155 


021 126 


000241 




4156 


021130 


000416 




4157 








115« 








4159 








4160 


021132 


016705 


161154 


4161 


021156 


011400 




4162 


021140 


010067 


000042 


4163 


021144 


040200 




4164 


021146 


020003 




4165 


021150 


000261 




4166 


021152 


00^,405 




4167 


021154 


005505 




4169 


021156 


001567 




4169 


021160 


005 5C1 




4170 


021162 


001363 




4171 


021164 


000241 




4172 








4175 








4174 








4175 








4176 


021166 


01*700 


000014 


4177 


021172 








021172 


010066 


000002 




021176 


010166 


000004 




021202 


004756 




4178 
















4190 


021204 


000207 




4181 








4182 








4183 








4184 


021206 


000000 





CLC 



6* 



» INDICATE FAILURE (TIME OUT). 

tEXiT WITH FAILURE. WORDS AREN'T EQUAL. 



NOK ZERO TIME OUT VAtUE. LOOP. WAITING FOR CONDITION OR TINE -OUT. 



2»: 
4»: 





MCI fklT 




MOV 


(R4).R0 


jGET THE WORD TO TEST. 


MOV 


R0.62> 


jSAVE WORD IN CASE THIS IS THE LAST. 


BIC 


R2.R0 


jMASK OUT UNTESTED BITS OF WORD. 


cnp 


R0.R3 


-.COMPARE AGAINST DESIRED STATE WORD. 


SEC 


jSET CARRY IN CASE OF SUCCESS. 


BEQ 


6» 


{EXIT WITH SUr-^ESS IF WORDS ARE EQUAL. 


DEC 


R5 


jCOUNT DOWN THE INSIDE MS LOOP COUNT. 


BNE 


At 


sLOOP IF MS NOT UP. 


DEC 


Rl 


: DECREMENT THE MS TIME COUNT. 


BNE 


2« 


:IF TIME NOT UP. LOOP TO COUNT ANOTHER 


CLC 




J CLEAR CARRT. WE TIMED -OUT. 



I HAVE EITHER FOUND CONDITION. OR TIMED -OUT (POSSIBLY FROM 0 TIME-OUT VALUE ) 
1 RESTORE THE LAST CONTENTS READ FROM THE TEST WORD. EXIT ROUTINE. 

61: NOV 62$. RO 

601: PASS RO.Rl 



MOV 
MC 
JSR 



RTS 



PC 



J LOCAL STORAGE. 
62* : .WORD 0 



jPASS OUT THE LAST RFAD WORD. 
jRESTORE GPRS. EXCEPT THE FOLLOWING: 
RO.ROSLOT(SP) ;PUT RO IN STAJK SLOT. 

Rl.RlSLOT(SP) jPUT Rl IN STACK SLOT. 

PC.8(SP)» J RE TURN TO PREG05 SU8RT. 

jRO - LAST READ WORD CHECKED FOR CONDITION. 
,Rl REMAINIKG TIME (0 IF TIME OUT OCCURED ) . 
iCARRy - SET IF SUCCESS. CLEAR IF TIME OUT. 



: STORAGE FQR THE LAST READ WORD. 



G9 



4186 
4107 
4106 
410<» 
4190 
4191 
4192 
4195 
4194 
4195 
4196 
4197 
4196 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4206 
4209 
4210 
4211 
4212 
4215 
4214 
4215 
4216 
4217 
4216 

4219 021210 

021210 004567 

4220 
4221 
4222 
4223 
4224 

4225 021214 004767 
4226 

4227 021220 

021220 004756 

4226 021222 000207 



MACRO ni2C0 
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164110 



177654 



.SBTTL GLOBAL SUBROUTINE 



MSLOOP 



• - TEST LOOP SUBROUTINE 

• THIS SUBfiOUriNE IS A GENERAL PURPOSE TEST LOOP SUBROUTINE. IT IS USED 

• TO VERIFY THAT A CERTAIN ACTION OCCURS BEFORE A TIME-OUT PERIOD. THE 

• CALLING ROUTINE PASSES IN UHICH BITS SHOULD BE SET AND CLEARED FQR THE 

• DESIRED CONDITION AND THE TIME-OUT VALUE IN MILLI -SECONDS . 

• THIS ROUTINE CHECKS FOR THE DESIRED CONDITION UPON ENTRANCE INTO ThE 

• ROUTINE AND THEN ONCE EACH MILLI -SECOND THEREAFTER. 



• INPUTS: 



R1 - TIME-OUT VALUE IN MiLLi -SECONDS (UP TO 64K MS). 

R2 BIT MAP OF BITS TO TEST (I INDICATES TO TEST THE BIT). 

R3 DESIRED STATES OF THE INDICATED FIELDS IN R2. 

R4 - ADDRESS OF THE WORD TO TEST. 

MSLCNT MILLI SECOND SOFTWARE LOOP COUNT. 



CARRY 



• OUTPUTS: 

• CALLING SEQUENCE: 



SUCCESS FLAG (SET IF CONDITION IS MET BEFORE TIME-OUT). 
JSR PC. MSLOOP 



t* 
J* 
* 

«♦ 
J* 



COMMENTS: THIS ROUTINE WORKS WITH OR WITHOUT A HARDWARE CLOCK. BUT THE 
CALIBRATION IS ONLY GUARENTEEO WHEN A LINE CLOCK IS AVAILABLE 
ON THE SYSTEM. 

THIS ROUTINE CAN BE USED AS A DELAY ROUTINE. BY SPECIFYING THE 
DESIRED DELAY AS THE TI»t-OUT AND SPECIFYING A CONDITION TO 
LOOK FOR V4HICM WILL NOT BE MET DURING THE DELAY, 
IF A TIME-OUT VALUE OF 0 IS SPECIFIED. THIS ROUTINE CHECKS FQR 
THE DESIRED CONDITION BEFORE RETURNING. IT INDICATES SUCCESS 
IF THE CONDITION IS MET. FAILURE OTHERWISE. 



SUBORDINATE ROUTINES CALLED: MSLGET. 



MSLOOP:: SAVE 



I SAVE CONTENTS OF GPRS RO THRU R5. 
JSR flS.PREGOS jCALL REGISTER SAvE SUBRT, 



; CALLING THE MSLGET ROUTINE FROM THE MSLOOP ROUTINE ISOLATES THE CALLER OF 
I MSLOOP FROM THE RETURNED TEST WORD AND REMAINING TIME-OuT VALUES. 



60t! 



JSR 

PASS 

RT5 



PC. MSLGET jCALL THE MULTI-PURPOSE MS LOOP AND SEARCH RTN. 

J RESTORE GPRS. 

JSR PC.S(SP)* , RETURN TO PREG05 SUBRT, 

PC SCARRY SET IF SUCCESS. CLEAR IF TIME OUT. 



PAMT4 



4^50 
4^91 
4^$? 
4?5S 
4^54 

4;»J5 

4296 

4^5: 
42SB 
4259 
4240 
424i 
4242 
424i 
4244 
4245 
4246 
424 7 
4248 
4249 
4250 
425i 
4252 
425S 

4254 
4255 
4256 
42S7 
4256 



4259 
4260 
4261 
42C2 
426 S 
4264 
4265 
4266 
4267 
426S 
4P69 
4270 
4271 
427? 
4275 

4274 

42'!; 

4276 
4277 
4278 
4279 



021224 
021224 



021250 
021230 
021234 
021240 
021242 
021244 

021250 
021252 
021256 
021262 
021266 

021272 
021274 

021276 
021 SOO 
021502 
021S04 
021S10 
021S10 
021314 
021 S16 
021320 
021522 
021524 
021326 



012746 
012746 
010600 
104417 

062706 

005001 
012702 
016703 
016704 
016705 

030205 
001442 

010400 
050100 
010013 
017700 

004567 
005002 
005005 
005004 
005005 
006500 
006102 
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004567 164074 



007566 
000001 



000\K>4 



000001 
160716 
160746 
160700 



160676 
164010 



.SSTTL GLOBilL SUBRCUTIfC 



nssw»T 



J* 
»• 

s« 
t» 
J* 
;• 
s* 
I* 
I* 

»• 

s* 
J* 

; • 
.* 
I* 

t 



- noocn STATUS signal report routine - 

THIS SUBROUTINE IS USED TO REPORT THE STATES OF THE HOOEH STATUS 
SIGNALS FOR ALL ACTIVE LINES. 



INPUTS: 



OUTPUTS: 



ACTLNS BIT NAP OF ACTIVE LINES. 

CSRA CONTAINS ADDRESS OF THE OUT CSR. 

EF9101 LABEL AT FORMAT STATEMENT FOR BLANK LINE. 

lESTAT CONTAINS STATES OF THE OUT INTERRUPT ENABLE BITS. 

STATA CONTAINS ADDRESS OF THE OUT STAT REGISTER. 

NUrt.NS EOUATEO TO THE NUMBER GT LINES ON THE DEVICE. 

OUT CSR INC. ADR. REG FIELD CONTENTS DESTHOtEO. 
REPORT MESSAGES ARE PRINTED ON THE OPERATOR'S CONSOLE. 



JSP 



CALLING SEQUENCE: 
COMMENTS: 

SUBORDINATE ROUTINES CALLED: NONE 



PC.MSSRPT 



MSSRPT:: SAVE 



;SAt/E CONTENTS OF GPRS RO TmRu R5. 
JSR RS.PREG05 ;CAL1. REGISTER SAVE SUBRT. 



PRINT THE BASIC MODEM STATUS MESSAGE, 
"MODEM STATUS bIGNAL REPORT: ' 

PRINTF #M£FMTl 



MOV 

MOV 

MOV 

TRAP 

ADO 



tMSFHTl, 
♦I. (SP 

SP.RO 
C«PNTF 

•4.SP 



(SP) 



2»: 



CLR 
MOV 
MOV 
MOV 
MOV 

BIT 
6EQ 

MOV 
BIS 
MOV 
MOV 
SAVE 

aR 

CLR 
CLR 
CLR 
ASl 
ROL 



Rl 

•X.R2 
CSRA.R5 
IESTAT.R4 
ACTLNS.RS 

R2.R5 
4t 

R4.R0 
Rl.RO 
R0.(R3) 
arSLSA.RO 



;START WITH LINE 0, 



R2 
RS 
R4 
R5 
RO 
R2 



JSR 



iGET THE CSR ADDRESS. 

jGET THE STATES OF THE INTERRUPT ENABLE BITS. 
jGET THE ACTIVE LINES BIT MAP, 

jTEST LINE BIT IN ACTIVE LINES BIT MAP, 
jLlNE ACTIVE? NO, SKIP REPORT FOR LINE. 

J SET UP OUT CSR INO.AOR.REG FIELD 

I LEAVING THE INTERRUPT ENABLE 

{ BITS IN THE SPECIFIED STATE. 

iREAD THE OUT STATUS REG FOR THIS LINE. 

tSAVE CONTENTS OF GPRS RO THRU R5. 

R5.PREG03 iCALL REGISTER SAVE SU6R^ 

tCLEAR THE SIGNAL STATUS INDICATORS. 



jSHlH DSR INTO CARRi, 

I THEN ROTATf. INTO INDICATOR. 



4<?0O 
4^91 

*2$i 
4294 
4209 
429h 
426' 
4299 
429* 
42^ 
42*1 



4292 

429S 
42<>4 
4295 
4296 

4297 
4296 
4299 



4S00 
4501 

4502 



0215M 
02I5S2 
021S54 
021 SS6 
021 MO 
021542 
021 M4 



021546 
021546 
021550 
021552 
021554 
021556 
021560 
021564 
0215 70 
021572 
021574 
021400 
02 1400 

021402 
021404 
021406 
0?1412 

021414 
021414 

021420 
021424 
021426 
021450 

021454 
021454 

021456 



006500 
006500 
006109 
006500 
006104 
006500 
006105 



010546 
010446 
010546 
010246 
010146 
012746 
012746 
010600 
104417 
062706 

004756 

006502 
005201 
020127 
002727 



012746 
012746 
010600 
104417 
062706 



004736 
000207 
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fcSL 
list 
ROL 

ROL 
ASL 
ROL 
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RO 
RO 
R5 
RO 
R4 
RO 
R5 



(SHIFT BLANK SLOT INTO CARRt. 

J SHIFT RI INTO CARRT. 

( THEN ROTATE INTO INDICATOR. 

(SHIFT OCO INTO CARRt. 

: THEN ROTATE INTO INDICATOR. 

(SHIFT CTS INTO CARRt. 

{ THEN ROTATE INTO INDICATOR. 



PRINT T»« STATUS FOR THIS LINE. 

•LlllC •N: DSR-N. RI-N. OCO-N. CTS-N" 

PRINTF «rfsrHT2.Rl.R2.R5.R4.R5 



007626 
000006 



000016 



000020 



007506 
000001 



000004 



4*: 



PASS 



ASL 
INC 
CHP 

BlT 



JSR 

R2 
Rl 

Rl.«NUnLNS 
2t 



(RESTORE ALL THE GPRS. 
PC.a(SP)» 



HOV 

HOV 

HOV 

HOV 

HOV 

HOV 

HOV 

HOV 

TRAP 

ADD 



R5, 
R4. 
R5. 
R2. 
PI. 



(SP) 
(SP) 
(SP) 
(SP; 
(SP) 
•HSFI1T2, 
♦6, (SP) 
SP.RO 
CiPNTf 
• 16. SP 



(RETURN TO PRECOX SJBRT. 



(SHIFT LINE Bit HAP TO NEXT LINE. 
(INCREMENT THE LINE COUNTER. 
I CHP LINE COUNTER UlTH 4 OF LINES ON DEVICE. 
(ALu LINES DONE? NO. LOOP TO DO NEXT lINE. 



PRINTF •EF9101 



(PRIN' A BLANK LINE, 



MOV 

HOV 

MOV 

TRAP 

ADD 



•EF9101, ( 
41. CSP) 
SP.RO 
CIPNTF 
•4.SP 



60* ; 



PASS 
RTS 



JSR 



PC 



(RESTORE GPRS. 
PC.8C SP^» 



(RFTJRN TO POtGO^ <;i«RT, 



J9 



4S04 
4505 
490e 
4507 
4500 
450* 
4510 
4511 
451^ 
4515 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4525 
4524 
4S25 
4526 

4527 
4528 
4529 
4550 
4551 
4552 
4555 
4554 
4555 
4556 
4557 
4558 
4559 
4540 
4541 
4542 
4545 
4544 
4545 



4546 
4S4 7 



021440 
021440 
021444 
021446 
021450 
021452 
021454 
021456 

021460 
021462 
021464 
021466 
0214 70 
021472 
021474 

021476 
021502 

021504 
021504 
021510 



004567 
005005 
005702 
001005 
005001 
000261 
000412 

060105 
105405 
005502 
001574 
010501 
000261 
000405 

012701 
000241 



010166 
004756 
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165660 



177777 



000004 



.SBTfL GLOBAL SUBROUTINE 



- HUL16'J 



16 BIT UNSIGKED HULTIPur WXJTINE - 
THIS ROUTINE nOLTIPLIES 2 16 BIT UNSIGNED NUMBERS AND RETURNS A 16 CIT 
UNSIGNED RESULT. T»C MULTIPLICATION IS PERTORMEO Br ITERATIVE 
ADDITION or ONE NUr«ER TO A SUM UHILE DECREMENTING THE OTHER NUMBER 
TO ZERO. IF OVERFLOU OCCURRS (177777 TO 0) THE PRODUCT IS IKVAlTD 



s* 
J • 

s* 

J* 



I»*»UTS: 



OUTPUTS: 



Rl MULTIPLICAND (16 BIT UNSIGNED). 
R2 - MULTIPLIER (16 BIT UNSIGNED). 

Rl PRODUCT (16 BIT UNSIGNED). 1 If OVERruOW. 

CARRf SET IF SUCCESS (NO OVERFLOW). CLEAR OTHERWISE, 



* CALLING SEQUENCE: 



JSR 



PC.MUL16U 



s* 
t* 
* 



COWCNTS: NOTE: FOR MINIMUM EXECUTION TIME R2 SHOULD CONTAIN THE 

SMALLER OF THE 2 ARGUMENTS. 

SUBORDINATE ROUTINES CALLED: NONE. 



021512 000207 



MUL16U: 


: SAVE 




;SAVE CONTENTS OF GPRS RO THRU R5. 






JSR 


rt5.PREG05 jCALL REGISTER SAVE SUBRT. 




CLR 


R5 


; CLEAR THE PRODUCT. 




TST 


R2 


; CHECK THE MULTIPLIER. 




6NE 


2» 


jGO TO 00 MULTIPLICATION IF NOT ZERO. 




CLR 


Rl 


s RE TURN A PRODUCT OF ZERO. 




SEC 




; INDICATE SUCCESS. 




BR 


60 1 


jEXIT THE ROUTINE. 


2»: 


ADO 


R1.R5 


lADO THE MULTIPLICAND TO THE PRODUCT. 




BCS 


50 » 


jEXiT WITH OVERFLOW IF ONE OCCURRED. 




DEC 


R2 


'.DECREMENT THE MULTIPLIER. 




BNE 


2« 


»LOOP IF MULTIPLIER NOT ZERO. 




MOV 


R5,R1 


, PREPARE TO PASS OUT THE PRODUCT. 




SEC 




J INDICATE SUCCESS. 




BR 


60 1 


jExiT WITH SUCCESS. 


50t: 


MOV 


» l.Rl 


sFORCE PRODUCT TO MAX VALUE. WE OVERLFOWED. 




CLC 




: INDICATE FAILURE. 


60i: 


PASS 


Rl 


{RESTORE GPRS. EXCEPT THE FOLLOWING: 






MOV 


Rl.RlSLOT(SP) iPuT Rl IN STACK SLOT. 






JSR 


PC.8(SP). 1 RE TURN TO PREG05 SUBRT 








J Rl PRODUCT (16 BIT UNSIGNED), 




RTS 


PC 


s CARRr SET IF SUCCESS (NO OVERFLOW). 
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4549 
4550 
4551 
455^ 
4555 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4365 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4575 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4381 
4582 
4383 
4584 
4585 
4586 
4587 
4586 
4589 

4590 
4591 
4592 
4595 
4594 
4595 
4596 
4597 
4598 
4599 
4400 
4401 
4402 
4405 
4404 



.serrt global subroutine 



newchr 



NEW CHARACTER HANDLING ROUTINE 
THIS SUBROUTINE HANDLES A NEU CHARACTER WHICH HAS BEEN READ FROH 
THE DUT. T^C COUNTERS AND POINTERS UHICH ARE INVOLVED WITH THE 
CHARACTER ARE UPDATED. THE CHARACTER IS CHECKED FOR ERRORS AND 
ANY ERRORS WHICH ARE roUND ARE REPORTED. 



INPUTS: 



R2 
R3 



ACTLNS 
DPRSQB 
TXRXLB - 
BITTBL 
ERSHRF 
ERRT8L 
ERCNTB - 
NDERPT - 
INPUTS TO SUBROUTINES: 



THE READ CHARACTER INCLUDING ERRD*) FLAGS AND LINE NUMBER. 
MASK OF THE INACTIVES BITS IN A TX OR RX CHAR BYTE. 
BIT HAP OF ACTIVE DUT LINES. 
LABEL AT DATA PATTERN RESYNC QUEUES TABLE BASE. 
BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 
TABLE OF WORDS WITH BITS SET FOR USE IN FORMING MAPS. 
"PRINT ERROR SUMMARY FOR LINE" FLAGS. 
ERROR INFORMATION CERRNBR. ERRMSG. ERRTTP), 
BASE OF THE RX CHARACTER ERROR COUNTERS TABLE. 
CONTAINS NUMBER OF CHAR ERRORS TO REPORT ON A LINE. 

CHCNT8, DPENOB. DPLEN, DPRSQE. EXCNTB. RXCNTB. 
RXPTRB. ERRNBR. ERMSG. EHRTYP. 



OUTPUTS: 



ERRBLK 
FOLLOWING 
DPRSQ - 
ERCNT 
ERSMRF 
EXCNT - 
RXCNT - 
RXPTR 



CONTENTS DESTROYED, 
VARIABLES UPDATED FOR LINE ON WHICH CHAR WAS RECEIVED: 
DATA PATTERN RESYNC QUE OF RECEIVED CHARACTERS. 
COUNT OF THE NUMBER OF CHARACTER ERRORS ON LINE. 

UPDATED "PRINT ERROR SUMMARY FOR LINE" FLAGS. 
COUNT OF THE NUMBER OF EXTRA CHARS RECEIVED ON LINE. 
COUNT OF THE NUMBER OF CHARACTERS RECEIVED ON LINE. 
UPDATED TO POINT TO THE NEXT EXPECTED CHAR ON LINE. 



CALLING SEQUENCE; 



JSR 



PC, NEWCHR 



COMMENTS: THIS ROUTINE CAN REPORT ERRORS WITH NUMBERS INITIAL ERRNBR 
AND INITIAL ERRNBR • 1. ERRNBR IS RESTORED TO ITS INITIAL 
VALUE BEFORE THIS ROUTINE RETURNS. 

SUBROUTINES CALLED: CKCHR.CKINAC . TXROFF . TXRON. 

INDIRECT SUBROUTINES: CMKEXT,CHKL0S,Eft9002,ER9O05,UPDCHR. 



021514 
021514 
021520 
021522 
021526 



021552 
021556 



021540 
021542 
021544 



004567 
010505 
052705 
005067 



004 767 
105052 



010504 
006304 
006504 



165604 

177400 
000270 



175412 



NEWCHR : : SAVE 

MOV 
BIS 
CLR 



J SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 :CALL REGISTER SAVE SU6RT. 

H3,R5 jGET THE BIT MAP OF INACTIVE DATA BYTE BITS. 

♦177400, R5 I ALL UPPER BITS OF EXPECTED DATA ARE INACTIVE. 

70» sClEAR THE "ERROR FOUND" FLAG. 



TlF THE NEW CHARACTER IS VALID ON AN INACTIVE LINE. GO REPORT ERROR. 
: ROUTINE USED ALSO EXTRACTS LINE NUMBER FROM THE NEW CHARACTER. 

' JSR PC.CKINAC jCHECk FOR CHAR ON INACTIVE LINE. 

BCC 4» idO REPORT ERROR IF ON INACTIVE LINE, 

PUSH THE NEW CHARACTER ON THE RESYNC QUE FOR THIS LINE. 



MOV R3.R4 
ASL R4 
ASL R4 



; CALCULATE BASE ADDRESS Of^ THE 
J DATA PATTERN RESYNCH QUEUE 
I (QUEUE IS 4 WORDS LONG) FOR 



I 9 



4405 


021546 


062704 


004642 


4406 


021552 


010401 




4407 


021554 


016121 


000002 


4408 


021560 


016121 


000002 


4409 


021564 


010211 




4410 








4411 








4412 








4415 








4414 


021566 


011402 




4415 


021570 


100112 




4416 








4417 








4418 








4419 


021572 


052702 


070000 


4420 


021576 


001427 




4421 








4422 








4425 








4424 








4425 


021600 


005567 


000216 


4426 


021604 


016300 


005254 


4427 


021610 


056067 


002564 


4426 


021616 


001017 




4429 


021620 


012767 


014676 


4450 


021626 


004767 


004326 


4451 


021652 
021632 


104460 




4452 


021654 


012767 


OOOOOl 


4455 


021642 


052767 


000100 


4454 


021650 


001462 




4455 








4456 


021652 


004767 


004542 


4457 








4458 








4459 








4440 


021656 


004767 


174636 


4441 


021662 


10S4SS 




4442 








4445 








4444 








4445 


021664 


005567 


000152 


4446 


021670 


016500 


005254 


4447 


021674 


056067 


002364 


4448 


021702 


001025 




4449 


021704 


012767 


014520 


4450 


021712 


005267 


163400 


4451 


021716 


004767 


004236 


4452 


021722 
021722 


104460 




4455 


021724 


012767 


OOOOOl 


4454 


021752 


052767 


000100 


4455 


021740 


001426 




4456 








4457 


021742 


004767 


004252 


4458 


021746 


005567 


163344 


4459 
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115 



40PRSQB.R4 
R4.R1 

2Cfll^.CRl). 
2(R1).''R11. 
R2.(R1) 



; THIS LINE. 

:GET THE BASE Of THE QUEUE. 
iMOvE fdOn CHRl SLOT TO CHRO SLOT. 
jMOVE PROM CHR2 SLOT TO CMRl SLOT, 
J PUT NEW CHAR INTO CHR2 SLOT. 



t CHECK THE DATA. VALID FQR THE CHARACTER AT THE BOTTON OF THE QUEUE, 
i IF DATA. VALID IS CLEAR. EXIT THE ROUTINE -NOTHING TO ANALYZE. 



CR4).R2 -.GET CHRO VALUE, SET FLAGS. 

60$ jExIT ROUTINE IF DATA. VALID IS CLEAR. 

; TEST FOR ANY OF THE ERROR BITS SET IN ChRO. 

' 470000. R2 sTEST FOR ANY CHRO ERROR BITS SET. 

2* iSKIP THIS ERROR IF NO ERROR BITS SET. 



MOV 
BPL 



BIT 
BEQ 



WE HAVE AT LEAST ONE ERROR FLAG SET ON THE RECEIVED CHAR, 
REPORT DATA ERROR FLAG ERROR IF NOT IN SUMMARY MODE. 



: - 



160662 
163474 



160362 
160312 



DEC 
MOV 
BIT 

BNE 
MOV 

JSR 

ERROR 

MOV 
BIT 
BEQ 



70$ 

TXRXLB(R3).R0 
BITTBLCR0).ERS?1RF 



2t 

•ER9005.ERRBLK 
PC.TXROFF 



41.FERR0R 
•81 T06. OPTION 
60* 



J SET THE "ERROR FOUND" FLAG. 
jGET THE TX LINE OFFSET FOR THIS RX LINE. 

J CHECK THE ERROR SUMMARY FLAG FOR TX LINE. 



8 IF ERROR SUMMARY FLAG SET. SKIP NEXT REPORT, 
: SELECT THE ER9003 ERROR REPORT ROUTINE. 
iTURN OFF TX AND RX DURING ERROR REPORTING. 
. > > > > > ERROR <<<<<. 

TRAP CIERROR 
{INDICATE AN ERROR HAS BEEN FOUND. 
(HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
jEXIT IF IT HASN'T. 



( » 



160576 
163410 



160272 
160222 



JSR 
BCS 



DEC 
MOV 
BIT 

BNE 
MOV 
INC 

JSR 

ERROR 

MOV 
BIT 
BEQ 



PC.CKCHR 
6« 



i CHECK THE CHRO CHAR FOR ERRORS. 
iSKIP ERROR REPORT IF CHRO IS CORRECl . 



JSR PC.TXRON J TURN TX AND RX BACK ON. 

J CHECK THE CHARACTER AT THE BOTTOM OF THE RESYNC QUE FOR DATA ERRORS 
2«: 

TuE HAVE SOME SORT OF DATA ERROR SO REPORT IT (UNLESS IN SUMMARY REPORT MODE). 

41: DEC 70* :SET THE "ERROR FOUND" FLAG. 

TXRXLB(R3).R0 ,GET THE TX LINE OFFSET FOR THIS RX LINE. 
BITTBLCRO).ERSMRF , CHECK THE ERROR SUMMARY FLAG FOR THIS LINE. 
6t I SKIP ERROR REPORT IF ERROR SUMMARY FL^tG SET. 

♦ER9002.ERRBLK {SELECT THE ER9002 ERROR REPORT ROUTINE. 
(SELECT INITIAL ERRNBR * 1. 
sTURN OFF TX AND RX DURING ERROR REPORTING. 
. > > > > > ERROR <<<'<. 

TRAP CtERROR 
{INDICATE AN ERROR HAS BEEN FOUND. 
,HAS EXTENDED ERROR REPORTING BEEN REQUESTFD ? 
{EXIT IF IT HASN'T, 



ERRNBR 
PC.TXROFF 



•l.FERROR 
*eiT06.0PTI0N 
60 < 



JSR 
DEC 



PC.TXRON 
ERRNBR 



{TURN TX AND RX BACK ON. 
{RESTORE INITIAL ERRNBR. 
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/Vl^74^7 
W_) to 1 


AAAAAA 




v«X 'SO 








VCl rov 




















AAXVA^ 




rt31 779 






4469 


021776 


001407 










AAXXAP 










AA 79 


A9^A1 A 




AAP 


4473 








44 74 


022016 
022016 


004756 




4475 


022020 


000207 




4476 








4477 


022022 


000000 





COUNT A CHARACTER ERROR IF ONE OCCURRED. 

UPDATE THE "REPORT ERROR SUMMARY" FLAG FOR LINE BASED ON ERROR COUNT. 



160156 
160462 



6$: 



8(: 



60(: 



70$! 



TST 
BEQ 

INC 
6NE 

DEC 

TST 
BEO 

CMP 
6L0 

BIS 

PASS 

RTS 

.UORO 



70 » } CHECK THE "ERROR FOUND" FLAG. 

60$ J SKIP COUNTING AN ERROR IF FLAG IS CLEAR. 

ERCNTBCR55 s INCREMENT THE ERROR COUNTER FOR THIS LINE. 

8» ;SKIP SETTING COUNTER TO MAX IF NO OVERFLOW. 

ERCNTBCR5) ;RESET THE ERROR COUNTER TO -I (MAX WALUE). 

NDERPT J DISABLE ERROR SUMMARY FUNCTION IF 

60$ ! NUMBER OF DATA ERRORS TO REPORT IS 0. 

ERCNTBCRS). NDERPT jCOMPARE ERROR COUNT WITH * QF ERR' S TO RPT , 

60$ :SKIP SETTING OF SUMMARY FLAG IF NOT TOO MANY. 

BITTBL(R3).ERSMRF :SET "PRINT ERROR SUMMARY" FLAG FOR LINE. 



PC 



jRESTORE GPRS. 
JSR PC.SCSP)* 



{RETURN TO PREG05 SUBRT. 



.•LOCAL STORAGE FOR ERROR OCCURRED FIAG. 



N9 



I>Mi; 



rUNC TST PAAT4 
OBAL StmOUTINE 
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44 79 
4480 
4481 
4482 
4483 
4464 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 



.S8TTL GLOBAL SUBROUTINE 



OOPS 



- PROGRAM ABORT SUBROUTINE 
THIS SUBROUTINE IS USED TO ABORT THE PROGRAM WKN A 
DETECTED IN THE PROGRAM OR THE HOST SYSTEM HAROUARE, 



FATAL ERROR IS 
AN ERROR MESSAGE 



IS PRINTED GIVING SOME INFORMATION ABOUT THE NATURE OF THE ABORT, 

INPUTS: Rl - ERROR CODE GIVING REASON FOR ABORT. 

OUTPUTS: AN ERROR MESSAGE IS PRINTED. 

A LIST OF RETURN PC VALUES FOR ALL SUBROUTINE CALLS IS PRINTED. 



CALLING SEQUENCE: 
s* 

COMMENTS: 



JSR 



PC. OOPS 



SUBORDINATE ROUTINES CALLED: NONE. 



4498 


022024 










022024 


004567 


163274 




4499 










4500 


022030 
022030 
022032 
022034 
022036 


104454 
000145 
0220/0 
000000 






4501 










4502 


022040 










022040 


012746 


022154 






022044 


012746 


000001 






022050 


010600 








022052 


104417 








022054 


062706 


000004 




4505 


022060 
022060 


104422 






4504 


022062 


000776 






4505 


022064 
022064 


004756 






4506 


022066 


000207 






4507 










4506 


022070 


110 


117 


123 




022073 


124 


040 


103 




022076 


117 


115 


120 




022101 


125 


124 


105 




022104 


122 


040 


110 




022107 


101 


122 


104 




022112 


127 


101 


122 




022115 


105 


040 


117 




022120 


122 


040 


123 




022123 


117 


106 


124 




022126 


127 


101 


122 




022131 


105 


040 


102 




022134 


125 


107 


040 




022137 


105 


116 


103 




022142 


117 


125 


116 




022145 


124 


105 


122 



OOPS: 



21: 



60t: 



SAVE ;SAVE CONTENTS OF GPRS RO THRU R5. 

JSR R5.PREG05 jCALL REGISTER SAVE SUBRT. 

REPORT "HOST COMPUTER HARDWARE OR SOFTWARE BUG ENCOUNTERED . " ERROR. 
ERRSF lOl.EMOlOl 

TRAP C«6RSF 
.WORD 101 
.UORD EMOlOl 
.UORO 0 

REPORT "PROGRAM HUNG. WAITING FOR A CONTROL-C." 
PRINTF ♦eM0l02 

MOV •EM0102 , 
MOV »1.-(SP) 
MOV SP.RO 
TRAP OPNTF 
ADD «4 . SP 
jLOOK FOR OPERATOR CONTROL-C INPUT. 

TRAP CIBRK 

•.INFINITE LOOP. 

« DON'T NEED THIS. BUT SOMEBODY MAY CHANGE THIS 
PC.8(SP)» J RETURN TO PREG05 SUBRT. 

: ROUTINE IN THE FUTURE. SO BE CONSISTANT. 



(SP) 



BREAK 

BR 

PASS 



2t 



RTS 



PC 



JSR 



.ASCIZ /HOST COMPUTER HARDWARE OR SOFTWARE BUG ENCOUNTERED./ 



BiO 
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02^150 


105 


104 


056 


022155 


000 






4W* 022134 


045 


116 


045 


022157 


101 


120 


122 


022162 


117 


107 


122 


02216S 


101 


115 


040 


022170 


110 


125 


116 


02217$ 


107 


054 


040 


022176 


127 


101 


111 


022201 


124 


111 


116 


022204 


107 


040 


106 


022207 


117 


122 


040 


02221^ 


101 


040 


105 


022215 


117 


116 


124 


022220 


122 


117 


114 


02222$ 


055 


103 


056 


022226 


040 


074 


052 


0222SI 


052 


052 


052 


022234 


052 


052 


052 


022237 


052 


052 


052 


022242 


052 


052 


052 


022245 


045 


116 


045 


022250 


116 


000 





EN0102:s .ASCI7 /tfNtfAPROGRAn HUNG. WAITING FOR A CONTROL C. 



4510 



.EVEN 



CiO 



'.fa i\'f 



4515 
4514 
4515 
4516 
4517 
4518 
4514 
4SJ0 
4521 
45?^ 

4524 
4525 
4526 
4527 
452S 
4529 
4550 
4551 
4552 
4555 
4554 
4555 
4556 
4557 

455a 
4559 
4540 
4541 
4542 
4545 
4544 
4545 
4546 
454 7 
4540 
4549 
4550 
4551 
4" 52 
4555 
4554 
4555 
4556 
4557 
4558 
4559 

4560 
4561 
4562 
4565 
4564 
4565 



.S8TTL GLOBAL SUBROUTINE 



PRFRME 



022252 
022252 
022256 
022262 



004567 
016704 
005005 



- PROCESS FRM1INC ERRORS - 
THIS SUBROUTINE IS USED IN THE rRAHINC ERROR BIT TEST. TO vERlfr THAT 
ALL RECEIVED CHARACTERS HAVE THEIR rRAHING ERROR BIT SET AND PARITY 
ERROR BIT CLEAR. 

IM>UTS- R2 CONTAINS THE CHARACTER READ TROH THE FIFO. 

ERRNBR - ERROR NUNBER OF ERRORS IN THIS ROUTINE. 
ERSNRF "REPORT ERROR SUTtlART FOR LINE" FLAGS 

OUTPUTS: ERRBLK IHE CONTENTS OF THIS WORD ARE OESTROtEO. 

ERCNTB THE ERROR COUNT FOR THIS LINE IS UPDATED. 
MESSAGES KAY BE PRINTED AT THE OPERATORS CONSOLE. 



CALLING SEQUENCE: 



JSR 



PC.PRFRHE 



COMMENTS: THIS ROUTINE REPORTS ERRORS WITH INITIAL NUMBER. 

ERRNBR IS RESTORED TO ITS INITIAL VALUE BEFORE THIS SUBROUTINE 
RETURNS. 



* SUBORDINATE ROUTINES CALLED: ER6201. 



165046 
165054 



PRFRME::SAVE 

MOV 
CLR 



tSAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PRFG05 iCALL REGISTER SAVE SUBRT. 

ERRNBR. R4 tSAVE THE CONTENTS OF THE INITIAL ERROR NUMBER. 

R5 tCLEAR ERROR /MESSAGE FLAGS. 



I ♦ 

I 

I 

I - 



TEST FRAMING AND PARITY ERROR BITS IN TURN. REPORT ANT ERRORS FOUND. IE. 
FRAMING ERROR BIT CLEAR. OR PARITY ERROR BIT SET. 



022264 


012767 


014162 


165050 




MOV 


•eR6201. ERRBLK 


tSET UP THE ADDRESS OF THE ERROR ROUTINE. 


022272 


052702 


020000 






BIT 


•6IT15.R2 


tCHECK ON STATE OF THE FRAMING ERROR BIT. 


022276 


001002 








6NE 


6« 


1 BRANCH IF FRAMING ERROR BIT SET. 


022500 


052705 


000002 






BIS 


•BITl.RS 


iSET REPORT FRAMING ERROR FLAG. 


022504 


052702 


010000 




61: 


BIT 


•BIT12.R2 


iCHECK ON THE STATE OF THE PARITY ERROR BIT. 


022510 


001402 








BEQ 


e» 


iBRANCH IF PARITY ERROR BIT CLEAR. 


022512 


052705 


000014 






BIS 


414. R5 


tSET REPORT "PARITY ERROR SET" FLAGS. 


022516 


005705 






St: 


TST 


R5 


iCHECK IF ANY ERROR FLAGS SET. 


022520 


001412 








BEQ 


60* 


lEXlT IF ALL FLAGS CLEAR. 


022522 


056567 


002564 


160150 




BIT 


BITT8L(R5}.ERSMRF iCHECK THE ERROR SUMMARY FLAG FQR THIS LINE. 


022550 


001004 








BNE 


101 


{SKIP ERROR REPORT IF ERROR SUMMARY FLAG SE^ 












{REPORT 


ERROR "CHARACTER RECEIVED WITH PARITY /FRAMING ERROR BIT SIT . 


022552 










ERROR 




1 » » » > > ERROR ****<. 


022552 


104460 












TRAP CIERROfl 


022554 


012767 


000001 


157662 




MOV 


•l.FERROR 


1 INDICATE AN ERROR HAS BEEN DETECTED. 


022542 


005265 


005502 




101: 


INC 


ERCNTB(R5) 


t INCREMENT ERROR COUNT FOR THIS LINE. 


022546 


010467 


162744 




601: 


MOV 


R4. ERRNBR 


•RESTORE ERROR NUMBER. 


022552 










PASS 




{RESTORE GPRb. 


022552 


004 756 










JSR 


PC,»<SP)» »R£tURN TO PRUiO'. ^UHd' 



DIO 



OHU 11 rsl PAfir4 M/kCRO mrOO is HM M 0*»:«8 pace B21 

0223^ COO^Or «TS PC 



0 



OMu 11 tone rsr pmia 

GLOBAL SteffOUTII* 



4SM 
4569 

45 ?0 
4571 
4572 
4575 
45''4 
4575 
45 7t 
4577 
4576 
4579 
4580 
4501 
4582 
4565 
4584 
4565 
4566 
4567 
4568 
4569 
4590 
4591 
4592 
4595 
4594 
459i> 
4596 



4597 
4596 
4599 
4600 
4601 
4602 
4605 
4604 
4605 
4606 
4607 
4606 
4609 
4610 
4611 
4612 
4615 
4614 
4615 
4616 

4617 
4618 
4619 
4620 

4621 
4622 



022556 
022556 
022562 
022566 



022570 
023576 
022402 
022404 
022410 
022414 
022416 
022422 
022424 
022426 
0224 S4 

022456 
022456 

022440 
022446 
022454 
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'f 0 



004567 
016746 
005005 



012767 
052702 
001002 
052705 
052702 
001402 
052705 
005705 
001414 
056567 
001035 



104460 

012767 
052767 
001440 



162 /42 
162750 



162724 



014162 
OlOOOO 

000010 
020000 

000005 



002564 160044 



000001 
000100 



157556 
157506 



PRPARE 



PROCESS PARITY ERRORS 
THIS SUBROUTINE IS USED IN THE PARITY ERROR TEST. TO VERIfY THAT 
ALL RECEIVED CHARACTERS HAVE THEIR PARITY ERROR BIT SET AND rPAHHING 
ERROR BIT CLEAR. 



• I»*»UTS: 
* 

* 

♦ OUTPUTS s 
« 



R2 CONTAINS THE CHARACTER READ TROM THE FirO. 
R5 CONTAINS 2 • LINE NUMBER OT THE READ CHAR. 
ERRNBR ERROR NUMBER Of ERRORS IN THIS ROUTINE. 
ERSMRF "REPORT ERROR SUMMARY FOR LINE* FLAGS. 
FERROR "AT LEAST ONE ERROR FOUND' FLAG. 

ERR6LK - THE CONTENTS OF THIS WORD ARE DESTROYED. 
ERCNTB - THE ERROR COUNT FOR THIS LINE IS UPDATED. 
MESSAGES MAY BE PRINTED AT THE OPERATORS CONSOLE. 



* CALLING SECWENCE: JSR PC, PRPARE 
♦ 

« COMMENTS: THIS ROUTINE REPORTS ERRORS WITH INITIAL ERRNBR THRU ERRNBR* I. 

* ERRNBR IS RESTORED TO ITS INITIAL VALUE BEFORE THIS SUBROUTINE 

* RETURNS. 

* THE CONTENTS OF thc eRRBLK ARE DESTROYED. 

* SUBORDINATE ROUTINES CALLED: ER9002.ER6201 . 



PRPARE:: SAVE 

MOV 
CLR 



JSR 

ERRNBR. (SP) 
R5 



I SAVE CONTENTS OF GPRS RO THRU R5. 
R5.PREG05 ;CALL REGISTER SAVE SU6RT , 

J SAVE THE CONTENTS OF THE INITIAL ERROR NUMBER, 
I CLEAR ERROR/MESSAGE FLAGS. 



!*TEST FRAMMING AND PARITY ERROR BITS IN TURN. REPORT ANY ERRORS FOUND. IE. 
; PARITY ERROR BIT CLEAR. OR FRAHHING ERROR BIT SET. 



61: 



HOV 

BIT 
BNE 

BIS 

BIT 
BEQ 

BIS 

TST 
BEQ 

BIT 
BNE 

(REPORT 
ERROR 



MOV 
BIT 
BEQ 



♦ER6201. ERRBLK ,SET UP THE ADDRESS OF THE ERROR ROUTINE. 
♦6IT12.R2 iCHECK ON STATE OF THE PARITY ERROR BIT. 

61 {BRANCH IF PARITY ERROR BIT SET. 

•BIT5.R5 jSET REPORT PARITY ERROR FLAG. 

4flITl5.R2 sCHECK ON THE STATE OF THE FRAMMING ERROR BIT. 

8» > BRANCH IF FRAMMING ERROR BIT CLEAR. 

♦5.R5 J SET REPORT TRAMMING ERROR SET" FLAGS. 

R5 jCHECK IF ANY ERROR FLAGS SET. 

121 J BRANCH TO HAKE DATA CHECK IF ALL FLAGS CLEAR. 

BITTBLfRS). ERSMRF , CHECK THE ERROR SUMMARY FLAG FOR THIS LINE. 
14 » iSKiP ALL ERROR REP IF IN ERROR SUMMARY MODE. 

ERROR "CHAR RECEIVED WITH PARITY /FRAMMING ERROR BIT SET/CLEAR' . 
I > » > > > ERROR <«<<<. 

TRAP CtERROft 



« I. FERROR 
4BIT06. OPTION 
16« 



{INDICATE AN ERROR HAS BEEN FOUND. 

(HAS EXTENDED ERROR REPORTING BEEN REQUESTED 

lEXIT IF IT HASN'T. 



I ♦ 



FIO 



PRPARE 
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<«0 12? 



4b?S 
















l«t96XA 


46>A 




009M02 




1 1 14A4 




0497A1 


17 74 AO 








001427 






042704 


lOOOOO 










OOlOl 7 




46S4 099414 












46S6 022^24 




100000 




VAC ' VA 


011S71 




012767 


014520 


4639 






4640 022%42 








104460 




4641 022S44 


012767 

VAC » W ' 


000001 


4642 






4643 






4644 022552 


005263 


00^302 


4645 022S56 


012667 


162534 


4646 






4647 022562 






022562 


0047S6 




4648 022564 


C00207 





t COMPARE ACTUAL DATA WITH EXPECTED DATA TO CHECK FOR MULTIPLE EIWQRS. 



12»: 



14»: 



16* : 
191: 

601: 



INC 

MOV 

MOVB 

BIC 

CMPB 
BEQ 

BIC 

BIT 
BNE 

BIT 
BEQ 

BIS 

MOV 

MOV 

; REPORT 
ERROR 

MOV 



INC 
HOV 

PASS 

RTS 



ERRN9R 

RXPTRBrRS).R4 

(R4).R4 

♦I 77400. R4 

R2.R4 

18* 

•BIT15.R4 



i INCREMENT ERROR NUMBER. 
;GET THE POINTER TO THE EXPECTED DATA. 
jGET THE EXPECTED DATA. 
I CLEAR THE UPPER BYTE. 
jCOMPARE ACTUAL AND EXPECTED DATA. 
jSKIP ERROR REPORT IF DATA CORRECT. 
I CLEAR "NONE" EXPECTED MESSAGE FLAG. 
BITTBL(R3),ERSMRF , CHECK THE ERROR SUMMARY FLAG FOR THIS LINE. 
16« J SKIP ERROR REPORT IF ERROR SUMMARY FLAG SET. 

BITTBL(R3).RX00NF , CHECK FOR RECEPTION COMPLETE ON THIS LINE. 
14* iSKIP SETTING NONE EXPECTED FLAG. 

•eiT15.R4 ;SET "NONE" EXPECTED MESSAGE FLAG. 

•eM9008.Hl jSELECT ERROR MESSAGE TO BE REPORTED. 

•ER9002.ERR6LK (SELECT ERROR REPORTING ROUTINE. 
ERROR "RECEIVE CHARACTER MISCOMPARE" 



«1.FERR0R 



ERCNTB(R3) 
(SP)*.ERRNBR 



TRAP 

i INDICATE AN ERROR HAS BEEN FOUND. 



{INCREMENT ERROR COUNT FOR THIS LI^«. 
s RESTORE ERROR NUMBER. 



C»ERROR 



PC 



JSR 



(RESTORE GPRS. 
PC.8(SP)» 



sRETURN TO PREG05 SUBRT, 



4650 

4694 
4655 
4656 
465' 
465S 
4659 
4660 
4661 
4662 
4665 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
46 7S 

4674 

4675 
4676 
4677 
4676 
4679 
4660 
4661 



466? 
4685 



MACRO '^^''^^^l^*^ ** <^ = ** ^ 
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PRTLPR 



PRINT THE CONTENTS OF TMt LPR. 
THIS ROUTINE 13 USED TO PRINT OUT EXTENDED INFORMATION ON THE 
CONTENTS OF THE LINE PARAMETER REGISTER (LPR). 



• I»#»UTS: R3 CONTAINS THE NUMBER OF THE LINE tOU UISH ro EXAMINE. 

• C5RA CONTAINS THE ADDRESS OF THE COT'S CSR. 

• lESTAT CONTAINS THE CURRENT STATUS Of TmF Tx AND RX INTERRUPT 

ENABLE BITS IN THE OUT'S CSR. 

LPRA CWTAINS THE ADDRESS OF THE DUT S LPR REGISTER. 



AN EXPENDED INFORMATION MESSAGE IS PRINTED ON THE OPERATORS 
CONSOLE . 



* 
* 

• OUTPUTS: 
* 
* 

• CALLING SEQUENCE: 
* 

• COMMENTS: THIS ROUTINE CHANGES THE IWIRECT ADDRESS FIELD Of THE DEVICE 

• UNDER TEST'S CSR. 

• SUBORDINATE ROUTINES CALLED: NONE. 



JSR 



PC.PRTLPR 



022566 






PRTLPR::SAVE 




;SAVE CONTENTS OF GPRS RO THRU R5. 






022566 


004567 


162552 




JSR 


R5.PREG05 J CALL REGISTER SAVE 


SUBRT. 




022572 


016701 


157402 


MOV 


CSRA.Rl 


J GET THE CSR ADDRESS. 






022576 


016702 


157402 


fOV 


LPRA.R2 


jGET THE LPR ADDRESS. 






022602 


042705 


177760 


eic 


41 7 7 760. R3 


i CLEAR ANr UNWANTED BITS. 






022606 


056705 


157422 


BIS 


IESTAT.R5 


iSET STATE OF Tx AND RX INTERRUPT ENABLE BITS. 




022612 


010511 




MOV 


R5.(R1) 


s SELECT LINE. 






022614 


011204 




MOV 


( R2 ) . R4 


;GET CONTENTS OF THE LPR. 










» PRINT 


MESSAGE "CONTENTS 


OF THE LPRrNNNNNN' 






022616 






PR INT X 


♦€F9019.«£M9026,R4;PRINT OUT MESSAGE ON OPERATORS CONSOLE, 




022616 


010446 








MOV 


R4, (SP) 
•EM9026. 




022620 


012746 


012075 






MOV 


(SP) 


022624 


012746 


007206 






MOV 


♦EF9019. 


(SP) 


022650 


012746 


000003 






MOV 


•5. (SP) 




022654 


010600 








MOV 


SP.RO 




022656 


104415 








TRAP 


C»PNTy 




022640 


062706 


OOOOlO 






ADD 


•10, SP 




022644 






60«: PASS 




sRESTORE GPRS. 






022644 


004756 






JSR 


PC.8(SP)> (RETURN TO PREG05 SUBRT. 




022646 


000207 




RTS 


PC 









HiO 



OMU 11 fiJUC Tbt P4ftT4 
C1.0BA4. SiVftOUTIMi 

4606 

4«»97 



4«»9 

4694 

4695 

4696 
4697 
4696 
4699 

4 '00 
4 701 
4 702 
4705 
4704 

4 705 

4 '06 
4707 
4 708 
4709 
4710 
4711 
4712 
4/15 
4714 
4715 
4716 
4717 
4718 
4719 
4 7^0 
4721 
4 722 
4725 
4 724 
4725 
4 726 
4727 
4 728 
4 729 
4 750 
4711 

4 752 
4755 



022650 
022650 
022654 
022660 

022664 
022666 



022670 
022674 
022676 



022700 
022704 
022706 
022710 

022714 
022716 
022720 
022722 
022724 

022726 
022726 

02^*50 



004567 

012701 
016704 

011402 
100016 



012700 
040200 
001006 



012700 
040200 
001002 
004767 

005501 
001562 
000241 
000401 
000261 



004 756 
000207 
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162450 

001000 
157316 



070000 

000501 
001644 



SSTTL GLOBAL SUBROUTINE 



PUFirO 



- PURGE THE FIFO 

THIS ROUTINE TRIES TO REMOVE ALL THE CHARACTERS FROM THE FIFO. 
ANY BMP COOES THAT ARE FOUND ARE SAVED ON THE BMP CODE QUEUE. 



• INPUTS: 



RBUFA CONTAINS THE ADDRESS OF THE RECEIVER. 



• OUTPUTS: 
* 
* 

* CALLING SEQUENCE: 
* 

• COMMENTS: 
* 

* SUBORDINATE ROUTINES CALLED 



CARRr BIT - INDICATES THE STATE OF THE FIFO. SET:* PURGED. 
BMPCQ THE CONTENTS OF THE BMP CODE QUEUE MAT BE UPDATED. 



JSR 



PC.PUFIFO 



SAVBMP. 



PUFIFO: :SAVE 

MOV 
MOV 



2* 

I ♦ 
i 



MOV 
BPL 



*512. .Rl 
RBUFA.R4 

(R4).R2 
61 



JSR 



J SAVE CONTENTS OF GPRS RO ThRu R5. 
R5.PREG05 :CALL REGISTER SAVE SUBRT. 

sSET MAXIMUM TRr COUNT OF 512. 
:GET ADDRESS OF THE RECEIVER BUFFER REGISTER. 

:GET THE CONTENTS OF THE RECEIVER BUFFER REG. 
sEXIT IF THE FIFO IS EMPTY, DATA. VALID CLR. 



CHECK IF THE READ CHARACTER IS ACTUALLY A BMP CODE. 
IF IT IS. THEN SAVE IT ON THE BMP CODE QUEUE TO BE REPORTED LATER. 



MOV 
BIC 
BNE 



•70000.ro 

R2.ro 

41 



GENERATE A BIT MAP OF CHAR ERROR BITS 
WHICH ARE NOT SET FOR CHAR. 
THROW CHAR AWAr IF NOT BMP OR SELFTEST CODE, 



I CHECK IF THE READ DATA IS MODEM STATUS . BMP OR SELFTEST?. 



4»: 

6«: 
601: 



MOV 
BIC 

BNE 

JSR 

DEC 
BNE 

CLC 
BR 
SEC 

PASS 
RTS 



#501. RO 

R2,R0 

4$ 

PC. SAVBMP 

Rl 
2» 

601 



JSR 



PC 



! CHECK IF BMP. 

;TRy TO CLEAR BMP FLAGS IN THE READ DATA, 

8 IF IT IS MODEM OR SELFTEST CODE THROW IT AWAr. 

(SAVE BMP CODE ON THE QUEUE. 

s DECREMENT THE TRY COUNT. 
iLOOP TO TRY AGAIN. 

I CLEAR CARRY. TO INDICATE FIFO NOT PURGED. 

jEXIT WITH CARRY CLEAR, 

;SET CARRY, TO INDICATE FIFO PURGED. 

J RE STORE GPRS. 

PC.aCSP)* , RE TURN TO PREG05 SUBR^ 

:CARR» BIT. SET INOICATfS FIFO Pt.«GfD. 



W4 '*-ZfC 



4 

4 '3" 
4 

4-%9 
4 '40 
4-41 
4 '4.' 
4 '45 
4 "44 
4'4S 
4 '46 
4 '47 
4 748 
4 "44 
i'W 
4 '51 
4 '52 
4-55 
4 ■'54 
4 '55 
4 756 
4 757 
4 758 
4 754 
4 760 
4 761 
4 762 
4 76S 

4 764 

4 765 
4 766 
4767 
4 766 
4 '69 
4 770 
4771 
4772 
477J 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4785 
4784 
4785 
4 786 
4797 
4788 
4789 
4790 



022 7S2 
022 '52 
022756 
022742 



022746 

022752 



022754 
022760 
022762 



022764 

022772 
022776 
025000 
025002 
025006 
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.ssttl global subroutine 



004567 
016746 
012705 



017702 
100065 



012700 
040200 
001012 



012767 
012700 
040200 
001005 
004 767 
000450 



li2566 
162554 
001000 



157250 



070000 



014420 

000500 



001552 



162550 



« • 
J* 
J* 
s* 
j» 
J* 
;• 
;• 
{ • 
J • 
: • 



PURGE riro REPORT AN> ERRORS FOUMD. 
THIS ROUTINE REMOVES ALL DATA TROM THE TlfQ. ANt BHP COOES THAT ARE 
roUNO ARE SAVE ON THE QUEUE TO BE REPORTED LATER IN THE BMP REPORT TEST. 
ANT UNXEPECTED DATA (IE ANY NGN STATUS INFORAHTION) THAT ARE rQiJND. 
ARE REPORTED AS AN ERROR. 

IF THE FIFO WILL NOT PURGE AFTER 512 ATTEMPTS, THEN THE CURRENT TEST 
THAT CALLED THIS ROUTINE RECEIVES A FAILURE FLAG THAT SHOULD BE USED 
TO ABORT T»C TEST. 



I»#»UTS: 

OUTPUTS: 



Er^TBL ERRTrPE. ERRMSG. ERRNBR ARE SET UP CORRECTlt. 
RBUFA COr<CTAINS THE ADDRESS OF THE RECEIVER. 

CARRT BIT ABORT TEST FLAG. CLR • ABORT TEST, SET • . 
ERRBLK VALUE UiLL BE OASTROyED. 

BMPCOP - THE BMP CODE QUEUE POINTER MAT BE UPDATED. 
T»€ CONTENTS OF THE BMP CODE QUEUE MAt BE UOATED. 



jSR 



PCPUTIFR 



t* CALLING SEQUENCE: 

I* COMMENTS: THIS ROUTINE REPORTS ERRORS WITH NUMBERS INITIAL ERRNBR 
:* THRU TO ERRNBR*2. 

I* THE ERRNBR IS RESTORED TO ITS INITIAL VALUE BEFORE RETURNING. 

I* SUBORDINATE ROUTINES CALLED: ER1605.LR9001 .ER9002. SAvBMP. 



PUFIFR::SAVE 



MOV 
MOV 



JSR 

EftRNBR.-CSP) 
#512.. R5 



I SAVE CONTENTS OF GPRS RO THRU RS. 
R5.PREG05 tCALL REGISTER SAVE SUBRT. 

I SAVE TIC CONTENTS Of THE ERROR NUMBER. 
iSET MAXIMUM READ COUNTER TO 2*riF0 SI2E . 



I READ DATA FROM THE riFQ UNTIL DATA VALID IS CLEAR OF READ COUNTER IS ZERO, 
i REPORT AIMT BMP OR UNEXPECTED DATA AS ERRORS. 



2»: 

t < 

I 

I 



MOV aR6UFA.R2 iGET THE CONTENTS OF THE RECEIVER BirFER RECi. 

BPL 8» lEXlT IF DATA VALID CLEAR. IE. FIFO PURGED. 

CHECK IF READ DATA IS STATUS OH UNEXPECTED CHARACTER. 



MOV 
BIC 
BNE 



♦70000, RO 

R2.R0 

41 



: GENERATE A BIT MAP OF CHAR ERROR BITS 

t WHICH ARE NOT SET FQR CHAR. 

jSKIP BMP CHECK IF IT IS UNCXPECTEO 04TA. 



» CHECK IF THE READ DATA IS MODEM STATUS . BMP OR SELFTEST?. 
i IF IT IS A BMP COOt THEN SAVE IT ON THE QUEUE. 



MOV •eR9001, ERRBLK 

MOV 4500. RO 

BIC R2.R0 

BNE 4t 

JSR PC. SAVBMP 

BR 61 



I SET UP THE CORRECT ERROR REPORTING ROUT INI. 

» CHECK IF BMP OR SELFTEST?. 

(TRY TO CLEAR BMP FLAGS IN THE READ DATA. 

{SKIP BMP ERROR REPORT IF HOOEM OR SELFTEST?. 

iSAVE THE BMP CODE ON THE QUEUE. 

(BRANCH TO CHECK READ COUNT. 



I CHECK IF THE READ DATA IS MOOFM, SElFTEbT OR UNEXPECTED DATA. 



PARI* 



JiO 
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4 ^91 


025010 


012 702 


000001 


4 '92 


025014 


001425 




4 ?95 


023016 


012701 


012466 


4 794 


025022 


010205 




4/95 


023024 


000503 




4796 


023026 


042705 


177760 


4 797 


023052 


006505 




4 79« 


023054 


052 704 


4 AAAAA 

lOOOOO 


4 799 02S040 


005267 


162252 


4000 02S044 


012767 


A • A C ^ A 

014520 


4001 








4002 025052 








02W52 


104460 




4905 








4S04 








4 MAX 








4006 


023054 




OOOlOO 


40v ' 




AAA A i C 




*OO0 








^ AAA 








4B10 


029U64 


00^567 


4 ^ ^^^^ 

162226 


M M t * 

4011 








AMI ^ 


025070 


AAK. X AC 

005^05 




A^t C 


023O'2 


001325 




4014 








4015 








4016 








4017 








4010 


025074 


062767 


000002 


4819 


025102 


012/67 


014070 


4020 


025110 


A 4 T A • 

012701 


Al 4 f 'TA 

011670 


4021 








4022 








4025 


025114 
025114 


4 A^ M^J\ 

104460 




4024 


025116 


AAA ^ A « 

000241 




4025 


025120 


AAA^ A < 

000401 




4026 








4027 


025122 


000261 




4028 








4029 


025124 


vicOO ' 


1 


4050 025150 








025150 


004756 




4051 








4852 








4855 


025 152 


000207 





4S: 



162250 



BIT •BIT0.R2 

BCQ 6< 

HOV #eM9104.Rl 

HOV R2.R3 

SUAe RS 

BIC 4177760. R3 

ASL R5 

BIS •BIT15.R4 

INC ERRNBR 

HOV •ER9002.ERRBLK 



sREPORT ERROR "UNEXPECTED DATA FOUM) IN FIFO' 



ERROR 



TEST THE MODEM STATUS INDICATION BIT. 
00 NOT REPORT ANY ERROR If MODEM STATUS. 
PASS THE CORRECT ERROR MESSAGE TO REPORT, 
EXTRACT THE LINE NUMBER FROM 
THE READ DATA. 

FORM LINE NUMBER TIMES 2 FOR ER9002 ROUTINE. 
SET THE "NONE " EXPECTED MAESSAGE FLAG. 
SET ERROR NUMBER TO INTIAL ERRBR^l. 
SELECT THE CORRECT ERROR REPORTING ROUTINE. 



> > > > > ERROR «<<<<. 

TRAP 



CtERROR 



t EXIT WITH FAILURE IF EXTENDED ERROR REPORTING HAS NOT BEEN ENABLED 



157100 



6»: 



BIT 
BEQ 



DEC 

DEC 
BNE 



4BIT06. OPTION 
7$ 



ERRNBR 



R5 
2t 



lEXIT WITH TEST FAILURE MESSAGE IF 

iNO EXTENDED ERROR REPORTIhKS HAS BEEN REQUESTED 

J DURING THE SOFTWARE QUESTIONS. 

{RESTORE ERROR NUMBER TO INTIAL ERRNBR. 

; DECREMENT READ COUNTER. 

jLOOP TO READ NEXT CHAR FROM FIFO IF COUNT > 0. 



162214 
162212 



I THE FIFO WILL NOT CLEAR, REPORT THE ERROR AND INDICATE THAT THE TEST IS TO 
t BE ABORTED. 

' ADD «2. ERRNBR :SET ERROR NUMBER TO INTIAL ERRNBR*2. 

MOV •ER1603,ERRBLK , SELECT THE CORRECT ERROR REPORTING ROUTINE. 
MOV »EM9017.R1 iPASS THE MESSAGE TO BE REPORTED. 

, REPORT THE ERROR "FIFO MILL NOT PURGE. (DATA VALID STUCK SET)' 
: "?????? TEST ABORTED". 

ERROR J > > > > > ERROR <<<<«. 

TRAP C ♦ERROR 

7»: CLC : INDICATE THE TEST IS TO BE ABORTED. 

BR 10$ jEXiT THIS ROUTINE AND ABORT THE CURRENT TEST. 



8»: 

10»: 
60(: 



SEC 

MOV 
PASS 



RTS 



10$ 

CSP)*. ERRNBR 
JSR 

PC 



;SET THE CARRY. 00 NOT ABORT THE TEST. 

sRESTORE INITIAL ERROR NUMBER. 
{RESTORE GPRS. 

PC.aCSP)* iRETURN TO PREG05 SU8RT . 

;CARRy bit. set INDICATES FIFO PURGED. 00 NOT 
, AdORT THE TEST. 



KiO 



PM}T4 



HACRO 84 09:48 



PAGE 8/ 



46S5 
4036 
4837 
4830 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
404 7 
4040 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 

4057 
4050 
4059 
4060 
4061 
4062 
4063 
4064 
4865 

4066 



.S8TTL GLOBAL SUBROUTINE 



PURRXB 



023134 
023134 

023140 
023144 
023150 
023154 
023156 
023162 

02S164 
023164 
023166 



004567 162164 



012701 
012721 
012721 
005021 
020127 
101774 



004736 
000207 



002712 
002720 
002720 

003120 



* 
* 

* 
« 

* 

* 
* 

* 



PURGE THE RX BUFFER IN MEMORY ROUTINE - 
THIS SUBROUTINE IS USED BEFORE THE BEGINNING OF A TX/RX OF DATA 
PATTERNS TO CLEAR OUT THE RX BUFFER AND TO INITIALIZE THE VARIOUS 
COUNTERS AND POINTERS RELATED TO THAT BUFFER. 



INPUTS: 
OUTPUTS: 



RXBSTA LABEL AT THE BEGINNING OF THE RX BUFFER. 

RXBCNT COUNT OF » OF CHARS IN RX BUFFER (CLEARED), 
RX8IPT INPUT POINTER TO RX BUFFER CINITIALIZEO) . 
RXBOPT OUTPUT POINTER TO RX BUFFER (INITIALIZED) . 
THE CONTENTS OF THE RX BUFFER ARE CLEARED. 



JSR 



CALLING SEQUENCE: 
COmENTS: 

SUBORDINATE ROUTINES CALLED: NONE 



PC. PURRXB 



PURRXB:: SAVE 



2S: 



60(: 



MOV 
MOV 
MOV 
CLR 
CMP 
BLOS 

PASS 

RTS 



JSR 

*RXB0PT.R1 
ORXBSTA.CRl). 
#RXBSTA,(R1). 
(Rl)» 

R1.«RXBEN0 
2$ 



{SAVE CONTENTS OF GPRS RO THRU R5. 
R5.PREG05 ;CALL REGISTER SAVE SUBRT. 



GET THE ADDRESS OF THE RX OUTPUT POINTER. 

INITIALIZE THE RX BUFFER OUTPUT POINTER. 

INITIALIZE THE RX BUFFER INPUT POINTER. 
{CLEAR CHAR COUNT AND THE BUFFER AREA. 
{CHECK IF LAST LOCATION HAS BEEN CLEARED, 
{LOOP IF NOT DONE. 



PC 



JSR 



{RESTORE GPRS. 
PC.aCSP)* 



{RETURN TO PREG05 SUBRT. 



LIO 
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4868 
4869 
4870 
48 71 
4872 
4875 
4974 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
4882 
4883 
4884 
4885 
4886 
4887 
4888 
4869 
4890 
4891 
4892 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 

4902 
490S 
4904 
4905 
4906 
4907 
4906 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4916 
4919 
4920 
4921 
4922 
4925 



023170 
023170 
0231 74 
023200 
023204 
023210 
023214 



023220 
023224 
02S2S0 
023252 
023254 



025256 
025242 
025250 
023252 



004567 
016704 
016703 
005067 
004767 
004767 



012701 
012702 
005021 
020102 
105775 



016701 
026767 
001402 
062701 



162130 
162116 
157026 
157276 
001320 
002440 



004642 
005042 



157004 
157234 

000062 



.SeTTL GLOBAL SUBROUTINE 



RDCHRS 



»♦ 
I* 
J* 
»• 
i* 
»* 
»• 
J* 
:* 
J* 
;* 
;* 
s* 
»♦ 
;* 

J* 

8* 

J* 

!* 

s* 

!* 

»• 
;* 
»• 
»* 
;* 
»* 



- REM) AND CONPARE INPUT CHARACTERS ROUTINE - 
THIS SUBROUTINE READS THE CHARACTERS FROH THE RX BUTFER IN HEHORT. 
IF CHARACTERS STOP APPEARING IN THE BUFFER WITH DATA. VALID SET 
OR IF nORE THAN THE ALLOWABLE NUMBER OF CHARACTERS HAS BEEN READ FROM 
THE BUFFER THIS ROUTINE EXITS WITH AN RX COHPLETE INDICATION. 
EACH READ CHAR IS ANALYZED AND ANY NECESSARY ERRORS ARE REPORTED. 

INPUTS: ACTLNS - BIT MAP OF THE ACTIVE DOT LINES. 

ERRNBR - SET TO ERROR NUMBER OF FIRST ERROR IN THIS ROUTINE. 
IBM MASK OF THE INACTIVE BITS IN A TX OR RX CHAR BYTE. 

OSTEND - ADDRESS OF THE END OF THE OUTPUT STORAGE FIFO BUFFER. 

OSTPTR - POINTER TO THE NEXT BYTE TO READ FROM OSTORE. 

RXBOPT - POINTER INTO THE RX CHAR BUFFER IN MEMORY. 

RXTOUT TIME-OUT VALUE FOR RX OF LAST CHAR. 

OUTPUTS: ERROR MESSAGES MAY BE PRINTED AT THE OPERATOR' S CONSOLE. 

TXDBLF TX/RX DISABLED FLAG (CLEARED). 
TXENBM - TX. ENABLE STATE MASK CDESTRCfED). 
SAVPRI STORAGE FOR PROCESSOR PRIORI. Y COESTROrED), 
SAVTEN - STORAGE FOR TX. ENABLE STATES (DESTROYED). 



CALLING SEQUENCE: 
COMMENTS: 



JSR 



PC. RDCHRS 



THIS ROUTINE REPORTS ERRORS WITH NUMBERS INITIAL ERRNBR 
THRU INITIAL ERRNBR * 4. 

ERRNBR IS RESTORED BEFORE THIS ROUTINE RETURNS. 



SUBROUTINES CALLED: 



CKCHR . NEUCHR . REPCOD . RXIEO . RXIEI . TXENBL , TX lEO . TXIE 1 . 
UAIBIS. 



RDCHRS:: SAVE 

MOV 
MOV 
CLR 
JSR 
JSR 



»SAVE CONTENTS OF GPRS RO THRU R5. 

JSR R5.PREG05 {CALL REGISTER SAVE SUBRT, 

ERRNBR. R4 tPRESERVE THE INITIAL ERROR NUMBER. 

IBM.R3 ;GET THE INACTIVE BIT MASK. 

TXDBLF ; CLEAR THE TX DISABLED FLAG. 

PC. RXIEI :TURN ON OUT RECEPTION INTERRUPTS. 

PC, TXIE I {TURN ON DUT TRANSMISSION INTERRUPTS. 



t ♦ 



CLEAR ALL RESYNC QUEUES FOR ALL LINES. 



( - 



2(: 



MOV *0PRSQ6.R1 tGET BASE ADDRESS OF RESYNC QUEUES TABLE. 

MOV «0PRSQE.R2 :GET END ADDRESS OF RESYNC QUEUES TABLE. 

CLR (Rl)» I CLEAR A WORD OF THE TABLE. 

CMP RI.R2 iCHECK IF POINTER AT END OF TABLE. 

6L0 2t {LOOP UNTIL TABLE IS CLEAR. 

WAIT FOR A CHARACTER TO APPEAR IN THE FIFO. 

IF NO CHARACTER APPEARS WITHIN TIME OUT PERIOD: EXIT ROUTINE. WE'RE DONE. 



4»: MOV RXTOUT, Rl 

156722 CMP TXDONF, ACTLNS 

6EQ 6« 

ADD «S0.,R1 



{GET TIME OUT FOR SLOWEST BAUD RATE IN USt. 
{CHECK FOR TRANSMISSION DONE ON ACTIVE I INES. 
{SKIP ADDING SO MS DELAY IF TX DONE ALL LINES. 
{ADD 50 MILLI SEC TO DELAY IF NOT LAST CHAR. 



MiO 



QHU \i TUNC TST PART4 



4924 
49^5 
49?6 
4927 
4928 
4929 
4950 
4931 
4932 
4953 
4934 
4935 
4936 
4937 
4936 
4959 
4940 
4941 
4942 
4945 



4944 



4945 
4946 
4947 



4946 
4949 

4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 

4960 
4961 
4962 
496S 
4964 
4965 
4966 
4967 
4966 
4969 
4970 
4971 
4972 
4975 



023256 
023262 
025266 
025272 



052701 
016702 
004767 
105117 



025300 
023504 
025506 
025514 
025516 
025522 
025526 
025554 
025556 
023556 
025340 
025542 
023342 
025546 
025550 
025554 
025560 
025360 
025362 
025364 

025364 
025570 
025572 
025376 
025402 



023410 
023410 
023412 



025422 
025426 
025450 



005767 
100027 
026727 
101025 
004767 
016705 
026727 
101013 

104440 
010001 

012700 
104441 
004767 
005067 

010100 
104441 



005367 
001014 
010467 
012701 
012767 



104460 
012767 



025420 000477 



012700 
040200 
001016 
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170000 
157424 
005520 



6>: 



025274 004767 175154 



BIS 
MOV 

JSR 

BCC 

JSR 



•170000.R1 
RXB0PT,R2 
PC.UAIBIS 
181 

PC.GETCMR 



INDICATE TO TEST DATA. VALID BIT. 
INDICATE TO CHECK MEMORY RECEIVE BUFrER. 
WAIT FOR RECEIVED CMAR OR TIME -DOT. 
EXIT ROUTINE IF TIME -CUT. ME' RE DONE. 

J READ A CHARACTER FROM THE MEMORY BUFFER. 



; CHECK IF THE TX ISR IS DISABLED. 

t RE -ENABLE RX ISR IF THE SPACE FOR NEW CHARS IS LOU ENOUGH. 

: IF THE BUFFER CAN ACCOMODATE MORE CHARS THEN RE -ENABLE TRANSMISSION. 



157202 
157404 

001212 
156754 
157564 



000340 

002054 
157126 



157106 

161720 
012001 
014052 



; - 
6$: 



000020 



000020 



10»: 



161712 



TST TXDBLF 

BPL 10* 

CMP RXBCNT,«RXBETX 

BHI 10» 

JSR PC.RXIEI 

MOV TXENBM.R5 

CMP RXBCNT.«RXBETX 

BHI 10» 

GETPRI Rl 



StTPRI #PRI07 



JSR PC.TXENBL 

CLR TXDBLF 
SETPRI Rl 



DEC CHRTOT 

BNE 12 « 

MOV R4.ERRNBR 

MOV »EM9025.R1 

MOV ♦ER0503.ERRBLK 



{CHECK IF TX IS DISABLED. 
J SKIP RX/TX CHECK IF TX NOT DISABLED. 
;C0MPARE BUFFER COUNT WITH LEVEL TO ENABLE RX . 
J SKIP ENABLE RX IF BUFFER TOO FULL. 
ENABLE RECEPTION INTERRUPTS. 
GET THE PRESERVED TX. ENABLE STATES. 
COMPARE BUFFER COUNT WITH LEVEL TO ENABLE TX. 
SKIP ENABLING TX IF BUFFER TOO FULL . 
;SAVE THE CURRENT PROCESSOR PRIORITY. 

TRAP CIGPRI 
MOV RO.Rl 



{DISABLE INTERRUPTS. 



{ENABLE TRANSMISSION. 
{CLEAR THE TX DISABLE FLAG. 
(RE -ENABLE INTERUPTS. 



MOV 
TRAP 



MOV 
TRAP 



•PRI07.R0 
C»SPRI 



Ri.RO 
CISPRI 



{DECREMENT THE TOTAL CHAR COUNTER. 
{SKIP ERROR IF NOT TOO MANY RECEIVED. 
{SET ERROR NUMBER TO INITIAL ERRNBR. 
{SELECT THE PROPER ERROR MESSAGE. 
{SELECT THE PROPER ERROR REPORT ROUTINE. 



000001 156604 



070000 



i REPORT ERROR AT INITIAL ERRNBR. 

{ "MORE THAN TWICE THE EXPECTED NUMBER OF CHARACTERS RECEIVED." 
s - 

ERROR { > > > > > ERROR <<<<<. 

TRAP 

MOV #1,FERR0R {INDICATE THAT AN ERROR HAS BEEN FOUND. 

BR 60t (EXIT THE ROUTINE. WE'RE GIVING UP. 



C»ERROR 



I DETERMINE IF THE CHARACTER IS DATA OR A STATUS CODE. 

12«: MOV ♦70000.ro {GENERATE A BIT MAP OF CHARACTER ERROR BITS 

BIC R2,R0 { WHICH ARE NOT SET FOR THE CHARACTER. 

BNE 141 (SKIP REPORTING OF ERROR CODE IF WE HAVE ChAR. 

'{ THE DATA IS EITHER A BMP CODE OR A MODEM STATUS CODE. 
{ REPORT THAT THE CODE WAS FOUND. 

( ERRORS REPORTED WITH ERROR NUMBERS >>>>> ERRNBR '1 AND ERRNBR<2 



NiO 



OMU-U FUHC TST 




rMCRO 1 


GLOeAi. SIWOUTXNE 








V 1 V*0 » 


161660 






AA^9^7 
WjcO f 


161654 


* O 




/O / 


000222 


AO 7 7 












AAK7^7 


156552 


A070 














000100 






AA1 d*>A 
















vW* AO 




























Aon? 








A QUA 




















01 A4A7 


161624 




09^7? 


A697#t7 

Vv& f V 1 


000003 




n9YSoo 


AA4 7A7 


176010 


■t T T J 




AA57#>7 


1S6514 




A91tS1 0 












000100 






nA14Y7 




















▼ 
























•4 Art a 












AAd 7#i7 


174726 










sons 




AAAild3 




S006 








S007 


















09Y5Xd 


AAd7A7 


000736 


5010 




OA47<^7 


001462 


5011 








501P 
xc 




OAS A0 1 






09YS4I; 


OA47A7 


175742 








501S 


09X559 


AA57*;7 


156446 


S016 




AA1 4A4 




5017 


02S560 


0»97|t7 

VwC f O f 


000100 


50ie 








5019 








5030 


0255 70 


062 70P 


000400 


50P1 


023574 


0O59A1 




5022 


02S576 


120127 


000020 


502S 


02S60? 






5024 


02S604 


005701 




5025 


023606 


100404 




5026 


023610 


005002 




5027 


023612 


012701 


100000 


5028 


023616 


000753 




5029 








50SO 


023620 


010467 


161472 
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ROCHRS 

MOV 
IHC 

JSR 

TST 
BEQ 

»6500 BIT 
BEQ 

BR 
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R4.ERRNBR 

ERRNBR 

PC.REPCOD 

FERROR 
16 » 

•BIT06.0PTI0N 
60$ 

16 ( 



sGET THE ERROR NUMBER PASSED INTO TmIS ROUTINE 

-.SET ERROR NUMBER TO INITIAL ERRNBR»1. 

: REPORT THE BMP OR MODEM STATUS CHANGE CODE. 

;HAS AN ERROR BEEN DETECTED ? 
:N0. THEN BRANCH. 

sHAS EXTENDED ERROR REPORTING BEEN REQUESTED. 
sYES, THEN EXIT WITH TEST FAIL MESSAGE. 

{BRANCH TO GET THE NEXT CHARACTER. 



; THE DATA IS A VALID CHARACTER: 

I COMPARE THE READ DATA UITH THE EXPECTED DATA. 
I UPDATE EXPECTED DATA POINTER. 

s ERRORS REPORTED UITH ERROR NUMBERS >>>>> ERRNBR* 3 AND CRRNBR** <<<<« 



14$: 



MOV 


R4. ERRNBR 


ADO 


*3 ERRNBR 


JSR 


PC.NEUCHR 


TST 


FERROR 


3EQ 


16$ 


BIT 


«6IT06. OPTION 


BEQ 


60$ 



s CALCULATE THE STARTING ERROR NUMBER FOR THE 
: NEXT ROUTINE CALL (INITIAL ERRNBR»3). 
s HANDLE THE NEW DATA CHARACTER. 
J HAS AN ERROR BEEN DETECTED ? 
:N0, THEN BRANCH. 

;HAS EXTENDED ERROR REPORTING BEEN REQUESTED. 
;YES. THEN EXIT UITH TEST FAIL MESSAGE. 



DONE PROCESSING THIS CHARACTER. 
READ ANOTHER CHAR FROM THE OUT FIFO. 
t IF DATA. VALID IS SET, LOOP TO CHECK THE RECEIVED CHARACTER. 
IF DATA. VALID IS CLEAR LOOP TO WAIT FOR IT SET OR TIME OUT. 



t - 

16$: 



JSR PC.GETCHR jREAD A CHARACTER FROM THE RX BUFFER. 

BCS 8$ :IF DATA.V<^LIO SET. GO TO CHECK THE RX CHAR. 

BR 4$ {LOOP TO WAIT CHAR OR TIME-OUT IF BUFFER EMPTY. 



I ♦ 
I 
( - 
18$ 



USE DUMMY CHARACTERS TO FORCE ANALYSIS OF CHARACTERS IN RESYNC QUEUES. 



20$: 



22$; 



60$; 



JSR 


PC.RXIEO 


sTURN OFF OUT RX INTERRUPTS. 


JSR 


PC . TXDONE 


;CHECK IF TX DONE. TURN OFF OUT TX INTERRUPTS. 


CLR 


R2 


s CLEAR THE DUMMY CHARACTER. 


CLR 


Rl 


s CLEAR THE LOOP COUNTER. 


JSR 


PC.NEUCHR 


(FORCE ONE RESYNC QUE CHAR TO BE ANALYZED. 


TST 


FERROR 


:HAS AN ERROR BEEN DETECTED ? 


BEQ 


22$ 


sNO. THEN BRANCH. 


BIT - 


#BIT06. OPTION 


:HAS EXTENDED ERROR REPORTING BEEN REQUESTED. 


BEQ 


60$ 


(YES. THEN EXIT WITH TEST FAIL MESSAGE. 


ADD 


#400. R2 


INCREMENT THE LINE NUMBER IN THE DUMMY CHAR. 


INC 


Rl 


{INCREMENT THE LOOP COUNTER. 


CMPB 


Rl . »NUMLNS 


{TEST FOR LOOP COUNTER EQUAL TO ♦ OF OUT LINES. 


BLT 


20$ 


{LOOP IF LOOP COUNT IS NOT ALL LINES DONE. 


TST 


Rl 


{CHECK FOR SECOND TIME AROUND OUTER LOOP. 


BMI 


60$ 


(EXIT IF OUTER LOOP DONE TWICE. 


CLR 


R2 


{CLEAR THE DUMMY CHAR FOR 2N0 TIME AROUND LOOP. 


MOV 


nooooo.Ri 


{CLEAR LOOP COUNT. SET OUTER LOOP FLAG. 


BR 


20$ 


{LOOP THE SECOND TIME AROUND OUTER LOOP. 


MOV 


R4. ERRNBR 


{RESTORE THE ERROR NUMBER TO ITS INITIAL VALUE. 



Bl 1 



DHL' U 
50S1 



MACffO H1200 15 NMI M 0<»:4A PMG£ M 5 
ROCHRS 



004 736 

900207 



PUSS 
RTS 



PC 



iRESTORE GPRS. 
JSR PC.WSP). 



iRETURN TO PR£GOS SuBRT 



Ohu n fiJNC Ti,T P<M|T4 



so 54 

50 5e 
505' 
50 5S 
50SO 
5040 
5041 
504^ 
5045 
5044 
5045 
5046 
5047 
5046 
5049 
5050 
5051 
505^ 
5055 
5054 
5055 



5056 
5057 
5058 
5059 
5060 
5061 
506^ 
5065 
5064 
5065 
5066 

5067 
5060 
5069 

5070 



025650 
025650 
025654 
025640 



025642 
025650 



025654 
02S6S4 
025656 

025664 
02S664 
025666 



004567 

016702 
0014 U 



012767 
012701 



104460 

012767 



004756 

000207 
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161470 
156424 



015504 

012577 



161452 



000001 156540 



.SBTTL GLOBAL SUBROUTINE 



PDMAST 



REPORT DMA START BIT ERRORS ROUTINE 
THIS SUBROUTINE CHECKS FOR LINES UHICh HAVE OHA START BIT ERRORS 
DURING THE JUST COMPLETED DMA TRANSMISSION. If ANY ARE ^OUND. 
THEY ARE REPORTED. 



ADDRESS or PRIMARY ERROR MESSAGE FOR TrtIS ROUTINE. 
ERROR NUMBER OF ERROR REPORTED IN THIS ROUTINE. 
CONTAINS BIT MAP OF LINES UITh DMA START BIT ERRORS. 

ERRBLK ADDRESS OF THE ERROR REPORTING ROUTI^« COESTROtED). 
MESSAGES MAY BE PRINTED AT THE OPERATOR CONSOLE. 



• INPUTS: E RRMS G 

• ERRNBR 

* TXINTF 

♦ OUTPUTS: 
* 

* CALLING SEQUENCE: JSR PC. ROMAS T 

* COMMENTS: IF NO LINES HAVE DMA STAHT BIT ERRORS, NO MESSAGES ARE PRINTED. 
:« SUBORDINATE ROUTINES CALLED: ER910e. 



I SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 jCALL REGISTER SAVE SUBRT. 

TXINTF, R2 ;GET COPY OF THE DMA START ERRORS BIT MAP. 

60» -.EXIT IF NO DMA. START ERROR BITS ARE SET. 



ROMAST:: SAVE 

MOV 
BEQ 

t*«E HAVE SOME DMA START BIT ERRORS TO REPORT. 

' MOV •ER9102, ERRBLK iSELECT THE ERROR REPORTING ROUTINE. 

MOV •En9102.Rl (INDICATE THAT UE HAVE DMA. START BIT ERROR. 

IrEPORT "DMA. START BIT SET AFTER RESET OR TX. ACTION ... ONLINES(S):" 
t - 

ERROR t > > > > » ERROR <«<<<. 

TRAP C lERROR 

MOV «1.FERR0R I INDICATE AN ERROR HAS BEEN DETECTED. 



60*; 



PASS 
RTS 



PC 



jRESTORE GPRS. 
JSR PC.aCSP). 



iRETURN TO PREG05 SUBRT. 



Di 1 



50 7S 
Wr4 

50 T6 
50" 
50 

507'» 
5000 
5001 

5O0r 

5005 

5005 
5006 
5007 
5009 
5009 
5090 
5091 
5092 
5095 
5094 

5095 
5096 
5097 
5090 
5099 
5100 
5101 
5102 
510S 
5104 
5105 
5106 
bl07 
5100 
5109 
5110 
5111 
5112 
511S 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
*,12S 

5124 

5125 
5126 



02S670 
025670 
025674 
025702 
025706 
025710 
025712 



025716 
025722 
025726 
025750 
025754 
025740 
025744 
025746 
025750 
023754 
025756 
025762 
025764 
025770 
025772 



0257 74 
024000 
024004 
024004 
024006 



004567 
012767 
016705 
010204 
000504 
042704 



012701 
052702 
001422 
005267 
012701 
012700 
040200 
001005 
004 767 
000425 
122702 
001416 
122702 
001415 
000400 



042702 
004767 

104460 

012767 



.SBTTL GLOBM. SueROOTINE 



REPCOO 



ROUTINE TO REPORT ERROR CODE FROM OUT 
THIS ROUTINE REPORTS AN ERROR CODE WHICH HAS BEEN R€AD FROH THE OUT 
Uro. THE CODE 13 CHECKED TO DETERMINE UHEThER IT IS A SELFTEST CODE 
AN MODEM STATUS CHANGE CODE OR A BMP CODE. THIS ROUTINE ASSUMES THAT 
THE CODE INDICATES AN ERROR. IF A BMP CODE IS FOUND IT IS NOT REPORTED 
INNEDIATELV. BUT IS SAVED ON THE BMP CODE QUEUE TO BE REPORTED LATER. 



• INPUTS: R2 - CONTAINS THE ERROR CODE COMPLETE WITH FLAGS AND I INE 9. 

* ERRTBL ERPTtP.ERRNBR.ANO ERRMSG SET UP CORRFCTLt. 



VALUE MAT BE DESTROrED. 

MAYBE UPDATED IF A BMP CODE IS ADDED TO THE QJEUE. 



* OUTPUTS: ERRBLK 

* BMPCQP 

* CALLING SEQUENCE: JSR PC.REPCOD 
* 

* COMMENTS: ERRN6R IS RESTORED TO ITS ENTERING VALUE By THIS ROUTINE. 

* THIS ROUTINE REPORTS ERRORS WITH NUMBERS ERRNBR THRU ERRN6R«1. 



• SUbORDINATE ROUTINES CALLED: ER9001.SAVBMP. 



024014 004 767 



161450 
014420 
161410 



177760 



011175 
000001 

161562 
011215 
000500 



000604 

000201 
000205 



177400 
002154 



000001 
002200 



161420 



REPCOD:: SAVE 

MOV 

MOV 

MOV 

SWAB 

BIC 



JSR 

•ER9001. ERRBLK 
ERRNBR. R5 
R2.R4 
R4 

♦177760. R4 



;SAVE CONTENTS OF GPRS RO THRU R5. 

R5.PREG05 jCALL REGISTER SAVE SUBRT. 

; SELECT THE ERROR REPORTING ROUTINE. 

; PRESERVE THE ERROR NUMBER. 

;EXTRACT THE LINE NUMBER FIELD 

: FROM THE ERROR CODE UHICh WAS 

: PASSED INTO THIS ROUTINE. 



DETERMINE THE TYPE OF CODE WHICH IS TO BE REPORTED. 



2*i 



MOV 


•EM9005.R1 


BIT 


«BIT0.R2 


BEO 


4» 


INC 


ERRNBR 


MOV 


#EM9004,R1 


NOV 


#500. RO 


BIC 


R2.R0 


BNE 


?» 


JSR 


PC.SAVBMP 


BR 


60 1 


CMP8 


4201. R? 


BEO 


6( 


CMPB 


020$, 


BEO 


hi 


BR 


4t 



I SELECT MODEM STATUS CODE MESSAGE. 

jTEST THE MODEM STATUS INDICATION BIT. 

iGOTO REPORT ERROR IF MODEM STATUS CODE. 

t SELECT THE SELFTEST CODE ERROR NUMBER. 

: SELECT SELf TEST CODE MESSAGE. 

; CHECK IF SELF -TEST OR B.1P CODE. 

;TRY TO CLEAR BMP BITS. 

jGO CHECK FOR SELFTEST CODE IF NOT BMP. 

;SAVE THE BMP CODE ON THE QU£»je. 

{EXIT THIS ROUTINE. 

I CHECK FOR SELF TEST NULL CODE. 

jEXIT ROUTINE IF NULL CODE FOCWO. 

;CHECK FOR SKIP SELF TEST CODE. 

lEXlT ROUTINE IF SKIP SELF TEST CODE FOUND. 

,C0 REPORT SELF TEST ERROR. 



t 

4t! 



REPORT "UNEXPECTED xxxxx CODE FOUND IN RECEIVE CHAR FIFO." 



156210 



BIC 
JSR 
ERROR 

MOV 



♦l774O0,R2 
PC.TXROFF 



♦l.FtHROR 
PC.TXRON 



;REMOVt UPPER BYTE OF CODE TO BE REPORTED. 
I TURN OFF TX AND RX DURING ERROR REPORTING. 
. > » > > > ERROR <*<*«. 

TRAP C *i RROR 
: INDICATE THAT AN ERROR HAS BEEN FOUND. 

,TL«N TX AND RX BACK ON. 



fcli 

51^8 i RESTORE THt INITIAL ETROR NUWER. 

5130 0;40^0 010367 161272 hi: MOV H3.ERR»«R 

51 fj 024024 60»: PASS »?^U22^ 

024024 004736 JSR PC.aCSP). 

5133 024026 000207 »TS PC 



iRETijRN TO PREGO'i SUBRT . 



r 



1 
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5155 
5136 
5157 
5156 
5159 
5140 
5141 
514£ 
5145 
5144 
5145 
5146 
5147 
5146 
5149 
5150 
5151 
5152 
5155 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 

5162 
5165 
5164 
5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 

5175 
5174 

5175 



024050 

024050 004567 161270 

024054 005767 156440 

024040 001404 



024042 012767 015070 161252 



024050 

024050 104460 
02405^ 

024052 004756 
024054 000207 



.S8TTL GLOBAL SOBROUTINE 



I* 

: • 
.♦ 

I* 
* 

* 
* 

s* 

i - 



- REPORT ERROR SUrtlARY ROUTINE 
THIS SUBROUTINE REPORTS AN ERROR SUMMARr FOR THOSE LINES WHICH HAVE 
EXCEEPED THE NUTQER OF INDIVIDUAL ERRORS TO REPORT FOR A SINGLE LINE 
IN A SINGLE TEST. THIS PARAMETER CAN BE SPECiriEO Br THE OPERATOR ir 
HE/SHE ANSWERS THE SOFTWARE PARAMETER 0*JESTIONS. 

INPUTS: ERCNTB - LABEL AT BASE OF LINE ERROR COUNTERS TABLF . 

ERRMSC AOOf^SS OF PRIMARY ERROR MESSAGE. 

ERRNBR ERROR NUrCER OF ERRORS IN THIS ROUTINE. 

EPSMRF "REPORT ERROR SUMMARY FOR LINE" FLAGS. 

OUTPUTS: ERRBLK ADDRESS OF ERROR REPORTING ROUTINE (OESTROvEO). 

SUMMARY MESSAGES MAY BE PRINTED AT THE OPERATOR CONSOLE. 



CALLING SEQUENCE: 



JSR 



PC.REPSMR 



COMMENTS: IF NO LINES HAVE EXCEEDED TK MAXIMUM N*^ER OF INDIVIDUAL 
ERRORS TO REPORT, NO MESSAGES ARE PRINTED Bt THIS ROUTINE. 
ERROR SUMMARIES IN THIS ROUTINE ARE REPORTED AS ERRORS. 
THE CONTENTS OF ERRBLK ARE DESTROYED. 

SUBORDINATE ROUTINES CALLED: 



REPSMR:: SAVE 

TST 
BEQ 



ERSMRF 
60 « 



I SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 ;CALL REGISTER SAVE SUBRT . 

jCHECK THE "PRINT LINE ERROR SUMMARY" FLAGS. 
:EXIT WITHOUT ACTION IF NO SUMMARY FLAGS SET. 



WE HAVE SOME ERROR SUMMARIES TO REPORT. 



MOV 



•ER9004. ERRBLK i SELECT ERROR REPO(<TING ROUTINE, 



REPORT 

"ERROR SUMMARY REPORT FOR LINES WITH EXCESSIi/E NUMBERS OF ERRORS: 



60»! 



ERROR 

PASS 
RTS 



TRAP 



C (ERROR 



PC 



;RESTORE GPRS. 
JSR PC.8CSP)» 



(RETURN TO PREGC5 SUBRT. 



PAilT4 



SK7 
5178 
51^9 
5100 
51SI 
510^ 
510S 
5104 
5105 
510« 
5107 
5100 
5109 
5140 
5191 
5192 
5l«5 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 

520S 
5204 

5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5215 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5225 
5224 
5225 
5226 
5227 
5228 
5229 
5250 
5251 
5252 



024056 
024056 
024062 



024066 
024072 
024074 
024076 
024100 
024104 
024110 



024112 
024116 



0?4122 
024124 
024150 
024154 
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004567 
012702 



016704 
050214 
001406 
005005 
012701 
004767 
105012 



161242 
000040 



156106 



011610 
174764 



01027 7 
004767 



005005 
012701 
004 767 
105410 



156062 
000504 



011610 
174740 



RE SETT 



J* 
s* 
J • 
J* 

* 

* 
* 

* 

* 

* 
J* 
»♦ 
{♦ 



RESET DEVICE UNDER TEST 
THIS SUBROUTINE IS USED TO RESET THE DuT TO A KNOWN STATE. 
IF RESET DOES NOT SUCCESFULLY COMPLETE. IE. TIME -OUT OCCURS, 
AN ABORT TEST ERROR MESSAGE IS REPORTED. 



THEN 



INPUTS: CSRA CONTAINS THE ADDRESS QF THE CSR 

TXBFCA CONTAINS AODREbS OF OUT DMA BUFFER COUNT REGISTER. 
ERRTBL ERRTYP.LRNBR.AND ERRMSG SET UP CORRECTLY, 

OUTPUfS: THE OUT PERFORMS ITS RESET FUNCTION INTO A KNOWN STATE. 

CARRY CLEAR INDICATES THE TEST IS TO BE ABORTED. 

ERRBLK VALUE MAY BE DESTROYED. 

lESfAT - TX AND RX INTERRUPT FLAGS ARE CLEARED. 

TX AND RX INTERRUPT ENABLE BITS IN THE DUT'S CSR ARE CLEARED. 



CALLING SEQUENCE 
COMMENTS: 



JSR 



PC. RESET T 



THIS SUBROUTINE CAN REPORT ERRORS WITH NUMBERS INITIAc ERRNBR 
THIS ROUTINE DOES NOT DESTROY THE VALUE OF ERRNBR. 

SUBORDINATE ROUTINES CALLED: DELAY .MSLGET . 



RESETT:: SAVE 



MOV 



•.SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 iCALL REGISTER SAVE SUBRT. 

«6IT05.R2 {SET BIT MASK OF MASTER RESET BIT. 



i ♦ 

( 
i 
t 

I - 



TEST THE STATE OF THE MASTER RESET BIT IN THE CSR. 
IF MR IS SET THEN WAIT FOR SELF -TEST TO COMPLETE. 
IF TIME-OUT OCCURS. REPORT THE ERROR AND PASS-OUT ABORT TEST INDICATOR. 

MOV CSRA.R4 jGET THE ADDRESS OF THE DUT'S CSR. 

BIT R2.(R4) :CHECK STATE OF MASTER RESET BIT. 

BEG 2» tOCN'T DELAY IF MR IS ALREADY ClEAR. 

CLR R5 ! SET UP DESIRED STATE OF MASTER RESET BIT. 

MOV ♦5000,, Rl jPASS TIME-OUT VALUE OF 5 SECONDS. 

JSR PC. MSLGET I WAIT FOR SELF -TEST TO COMPLETE. MR CLEAR. 

BCC 4( (GO REPORT ERROR IF TIMEOUT OCCURRED. 

IsET MASTER RESET BIT IN CSR. CLEAR TX AND RX ENABLE BITS. ETC. 
I SKIP THE SELF TEST. 
; TIMl OUT OF 5 SECS. 

2$: MOV R2.aCSRA 

JSR PC.SKPSTS 



JUST IN CASE THE SELF -TEST EXECUTES. 

iSET MASTER RESET BIT. DISABLE TX AND RX INTS. 
;TRy TO SKIP THE SEIFTEST. 



I » 



SET SELF. TEST TIME-OUT OF 5 SECONDS. AND WAIT FOR M.R TO 
IF TIME-OUT OCCURS. THEN REPORT THE FATAL ERROR AND PASS 
TEST INDICATOR. 



CLEAR, 

OUT THE ABORT 



CLR 
MOV 
JSR 
BCS 



R5 

•5000. ,R1 
PC. MSLGET 
6* 



J SET UP DESIRED STATE OF MASTER RESET BIT. 
{PASS TIME-OUT VALUE OF 5 SECONDS. 
jWAIT FOR SEL^-TEST TO COMPLETE. MR CLEAR. 
J SKIP ERROR REPORT IF MR CLEARED IN TIME. 



Mil 



525S 
iSU 
52S5 
5^36 
*237 
5236 
52St 
52*0 
5241 

5242 
3245 
5244 
5245 
5246 
524 7 
5249 
5249 
5250 
5251 

5252 
5255 
5254 



024 IM 
024142 



024150 
0«;4150 
024152 
024154 



024156 
024162 

024164 
024164 

024166 



012701 
012767 



104460 
000241 
00040S 



C05067 
000261 



004756 
000207 
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010111 
014070 



VSET UP EftROP MESSAGE TO REPORT VATAL ERROR FOUND DURING RESET. TEST ABORTED . 
; INDICATE TEST IS TO BE ABORTED Br CLEARING THE CARRt BIT. 

kti HOV •EM1601.R1 sPASS ERROR MESSAGE TO REPOR. . 

161152 HOV •ER1605.ERRBLK sPASS ADDRESS ERROR HANDLING ROUTINE. 

:REP0RT ERROR "TIHE OUT OCCURRED WAITING FOR MASTER RESfcT TO CLEAR- 

; "TEST ABORTED- 
ERROR « >>>>> ERROR <*<<< 

TRAP C tERRQR 

CLC : INDICATE TEST IS TO BE ABORTED. 

BR 60« (EXIT THIS SUBROUTINE. ABORT TEST INDICATOR. 



156052 



i ♦ 



CLEAR TX AND RX INTERRUPT ENABLE STATUS FLAGS IN lESTAT, 
EXIT UITM CONTINUE TEST INDICATOR SET (IE. CARRY SET). 



6S: 
601: 



CLR 
SEC 

PASS 
RTS 



lESTAT 



PC 



JSR 



ScLEAR TX AND RX INTERRUPT STATUS FLAGS. 
J INDICATE SUCCESS. CONTINUE TEST. 

, RESTORE GPRS. PASS TME FOLLOWING INTACT: 
PC.aCSP)* ; RE TURN TO PREG05 SUBRT, 

iCARRY BIT: IF CLEAR. INDICATES ABORT TEST. 



52 rs 
52 T4 
52 T5 
5276 
5277 
52 7« 
5279 
52S0 
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'^0 HI 



RRXHDN 



REPORT RECEPTION NOT COMPLETED ROUTINE 
TMl5 SUBROUTINF Checks for LINES UMICm did NOT RECEIVE TmE COMPLETE 
DATfl PATTERN. IF" ANY ARE FOUND. TMEt ARE REPORTED. 



INPUTS: 



OUTPUTS: 



RS LOCAL ACTIVE LINES BIT MAP. 

OP) ENS 8ASE or TABLE OF DATA PATTERN LENGTHS. 
ERRMSG ADDRESS OF PRIMARY ERROR MESSAGE FOR TmIS ROUT INF. 
ERRt«R ERROR NUMBER OF ERROR REPORTED IN THIS ROUTINE. 
RXCNTB LABEL AT BASE OF THE Rx CHARACTER COUNTERS TABLE. 
RXDONF DECEPTION DONE FLAGS. 

ERRBLK ADDRESS OF THE ERROW REPORTING ROUTINE (OESTROifD). 
MESSAGES MAY BE PRINTED AT THE OPERATOR CONSOLE. 



CALLING SEQUENCE 
COMMENTS: 



JSR 



PC.RRXNDN 



IF NO LINES FAILED TO COMPLETE THEIR RECEPTION. NO MESSAGES 
ARE PRINTED. 



SUBORDINATE ROUTINES CALLED: ER9005. 



5261 
52a2 

528 S 
5294 
5285 
5286 

529 7 
5288 
5289 
5290 
5291 
5292 
5295 
5294 
5295 

5296 
5297 
5298 

5299 



024170 
02*170 
024174 
0241-'6 
024202 



024204 
024212 
024216 



024222 
024222 
024224 

0242S2 
024232 
0242 34 



004567 
010502 
046702 
00141S 



012767 
012701 
012704 



161 ISO 
156502 



015204 
011661 
003542 



RRXNDN:: SAVE 

MOV 
BIC 
BEQ 



;SAVE CONT£NTS OF GPRS RO THRU R5. 
JSR R5.PREG05 {CALL REGISTER SAVE SUBRT. 

R5.R2 sGET COPY OF THE LOCAL ACTIVE LINES P.IT MAP. 

RXDONF. R2 jGET MAP OF ACTIVE LINES WITH Rx DONE FLAG CLR. 

601 jExIT IF NO ACTIVE LINES HAVE RX DONE FLAG CLR. 



WE HAVE SOME "RX NOT COMPLETED" ERRORS TO REPORT. 



161110 



MOV •ER9005. ERRBLK 
MOV •EM9016.RI 
MOV •RXCNTB,R4 



J SELECT THE ERROR REPORTING ROUTINE. 

: INDICATE THAT UE ARE DEALING WITH RECEPTION. 

{PASS BASE OF RX CHAR C0L»4TERS TABLE TO ER9005. 



REPORT "SINGLE CHARACTER MODE TEST ERROR: ' 

"DATA PATTERN NOT COMPLETELY RECEIVED ON ALL LINES: 



104460 

012767 



004 736 

000207 



000001 155772 



601 1 



ERROR 

MOV n.FERROR 
PASS 

RTS PC 



TRAP 

{INDICATE AN ERROR HAS BEEN FQUNO. 



CfERROR 



JSR 



I RE STORE GPRS. 
PC,»(SP)» 



{RETURN TO PREG05 SUBRT. 



S501 

550S 
5504 
5505 
5506 
550' 
5506 
550<» 
5510 
5511 
5512 
5515 
5514 
5515 
5516 
5517 

55ia 

5519 
5S?0 
5521 
5522 
5525 
5524 
5525 

5526 
5527 
5 520 
5529 
5550 
5551 
5552 
5555 
5554 
5555 
5556 
5557 
5556 
5559 
5540 
5541 

5542 
5545 
5544 

5545 



024256 
024256 
024242 
024244 
024250 



024252 
024260 
024264 



024270 
024270 
024272 

024500 
024500 
024502 



.S8TTL GLOBAL SueRQUTINE 



RT/NON 



REPORT TRANSMISSION NOT COMPLETED ROUTINE 
THIS SUBROUTINE ChtCKS FOR LINES WHICH DID NOT TRANSMIT THE COMPLETE 
DATA PATTERN. IF ANY ARE FOUND. T«Y ARE REPORTED. 



• INPUTS: 



* 

* 

* 

* 

i* 

{♦ 
J* 



OUTPUTS: 



R5 LOCAL ACTIVE LINES BI i MAP, 

OPLENB LABEL AT BASE OF DATA PATTERN LENGTH TABLE. 
FRRMSC - ADDRESS OF PRIMARY ERROR MESSAGE FQR THIS ROUTINE. 
ERRNBR ERROR NUTfiER OF ERROR REPORTED IN THIS ROUTINE. 
TXCNTB - LABEL AT BASE OF THE TX CHARACTER COUNTERS TABLE. 
TXOONF TRANSMISSION DONE FLAGS. 

ERRBLK ADDRESS OF THE ERROR REPORTING ROUTINE (DESTROYED). 
MESSAGES MAY BE PRINTED AT THE OPERATOR CONSOLE. 



CALLING SEQUENCE: 
COMMENTS: 



JSR 



PC.RTXNDN 



IF NO LINES FAILED TO COMPLETE THEIR TRANSMISSIOK 
ARE PRINTED. 



NO MESSAGES 



SUBORDINATE ROUTINES CALLED: ER9005. 



004567 
010502 
046702 
001415 



012767 
012701 
012704 



161062 
156252 



015204 
011645 
005502 



RTXNDN:: SAVE 

MOV 
BIC 
BEQ 



sSAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 :CALL REGISTER SAVE bUBRT. 

R5,R2 jGET COPY OF THE LOCAL ACTIVE LINES BIT MAP. 

TXD0NF.R2 jGET MAP OF ACTIVE LINES UITH TX DONE FLAG CLR. 

60» jEXIT IF NO ACTIVE LINES HAVE TX DONE FLAG CLR. 



UE HAVE SOME "TX NOT COMPLETED" ERRORS TO REPORT. 



161042 



MOV 4ER9005. ERRBLK 
MOV *EM9015,R1 
MOV •TXCNTB.R4 



jSELECT THE ERROR REPORTING ROUTINE. 

i INDICATE UE ARE DEALING UITH TRANSMISSION. 

tPASS BASE OF TX CHAR COUNTERS TO TABLE ER0605. 



I REPORT "SINGLE CHARACTER MODE TEST ERROR: ' 
: "DATA PATTERN NOT COMPLETELY TRANSMITTED ON ALL LINES:' 
I . . • 

i 



104460 

012767 000001 



004756 

000207 



155724 



60»: 



ERROR 

MOV 
PASS 
RTS 



«1.FERR0R 

JSR 

PC 



I > > > > > ERROR <<<<«. 

TRAP CIEWIOK 
t INDICATE THAT AN ERROR HAS BEEN FOUND. 



I RE STORE GPRS. 
PC.8(SP)» 



(RETURN TO PREG05 SUWT. 



0H*.» 11 FUNC rST P/MIT4 
GLOBAL S>«ftOUTItC 



Kii 



5547 






5348 






5549 






5350 






5351 






5352 






5353 






5354 






5355 






5356 






5357 






5358 






5559 






5560 






5561 






5562 






5563 






5564 






5565 






5566 






5567 






5366 






5369 






5370 


0i[;4504 






024504 


004567 


5371 


024510 


010500 


5372 


024512 


012701 


5373 


024516 


016702 


5374 


024522 


012705 


5375 


024526 


016704 


5376 


024532 


005005 


5377 






5378 






5379 






5380 


024554 


010477 


5561 


024540 


052712 


5582 


024344 


001401 


5585 


024346 


050105 


55«4 






5385 






5386 






5387 






5388 


024350 


050100 


5589 


024552 


001402 


5390 


024554 


042712 


5391 


024560 


005204 


Ti392 


024562 


006501 


5395 


024564 


005505 


5594 


024566 


001562 


5595 






5596 


024570 






024570 


010566 




024574 


004 756 


5597 






5396 


024576 


000207 
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161014 

000001 
155666 
000020 
155702 



155640 
000004 



000004 



000014 



RXOSBL 



- DISABLE RECEIVERS - 
THIS SUBROUTINE IS USED TO DISABLE RECEPTION ON SELECTED LINES BY. 
CLEARING THE ASSOCIATED RX.ENABLE BIT ON THE OUT. 



INPUTS: 



OUTPUTS: 



R5 BIT'S SET CORRESPOND TO LINES ON WHICH TO CLEAR RX ENABLE. 
CSRA - CONTAINS THE ADDRESS QT THE OUT CSR. 

lESTAT - CONTAINS THE STATE Qf TXIE AND RXIE BITS IN THE CSR. 
NUMLNS - EQUATED TO BE THE MAXIMUM NUMBER OT LINES AVAILABLE. 
LNCTRA - CONTAINS THE ADDRESS Of THE LNCTRL REGISTER. 

R5 - BIT'S SET INDICATE INITIAL STATES Of ALL RX.ENBLE BITS. 

LNCTRA - THE STATE OP THE RX.ENBLE BIT MAY BE ALTERED. 

THE CONTENTS OP THE IND.ADD.REG FIELD IN THE CSR ARE DESTROYED. 



JSR 



CALLING SEQUENCE: 
COMMENTS: 

SUBORDINATE ROUTINES CALLED: NONE 



PC. RXOSBL 



RXOSBL:: SAVE 

MOV 
MOV 
MOV 
MOV 

MOV 
CLR 



:SAVE CONTENTS OP GPRS RO THRU R5. 

JSR R5.PREG05 tCALL REGISTER SAVE SUBRT. 

R5.R0 jCOPY BIT MAP OP LINES TO DISABLE RECEP1IQN. 

•eiTO.Rl ; INITIALIZE THE SELECTED LINE BIT MASK. 

LNCTRA. R2 ;GET THE ADDRESS OP THE LNCTRL REGISTER. 

«NUMLNS.R5 :GET MAXIMUM LINE NUMBER PLUS ONE. 

IESTAT.R4 jGET THE STATES OP THE INT ENABLE BITS. 

R5 iLOG POSSIBLE RX DISABLED ON ALL LINES. 



t 

( - 
21 



SELECT EVERY LINE IN TURN. AND LOG THE STATE OP EACH RX.ENABLE BIT. 



MOV 
BIT 
BEQ 
BIS 



R4.aCSRA 

«6IT2.(R2) 

4$ 

R1.R5 



WRITE TO OUT CSR TO SELECT LINE REGISTERS. 
CHECK STATE OP RX.ENABLE BIT ON SELEC1«^D LINE. 
SKIP NEXT INSTRUCTION IP RX.ENABLE CLEA"*. 
LOG RX ENABLE BIT SET FOR SELECTED LINE. 



i 
i 

i - 
4»: 



6ti 



60«; 



CLEAR RX ENBLE ON LINES THAT HAVE A CORRESPONDING BIT SET IN THE RX OISA.lLE 
LINE BIT "map. 



BIT 
BEQ 
BIC 
INC 

ASL 
DEC 
BNE 

PASS 



RTS 



Rl.RO sCHCrK STATE OP DISABLE LINE BIT MAP. 

6$ J BRANCH IP THIS LINE TO REMAIN UNALTERED. 

«6IT2,(R2) :CLEAR RX ENABLE BIT ON SELECTED LINE. 

R4 iPREPARE TO SELECT REGISTERS PGR NEXT LINE. 

Rl :SHIPT BIT MAP FOR NEXT LINE. 

R5 ; DECREMENT LINE NUMBER. 

2» jLOOP TO CHECK NEXT LINE. 

jRESTORE GPRS. EXCEPT 
MOV R5.R5SL0TCSP) »PUT R5 IN STACK ScOT. 

JSR PC.8(SP)» I RE TURN TO PRtG05 ScSBT. 

sRS PREVIOUS STATES OP AIL RX.ENABLE BITS. 



R5 



PC 



Lii 



DHU 11 rOHC TST P 



PAAT4 



MOO 
5401 
5402 
5405 
5404 
5405 
5406 
5407 
5408 
5409 
5410 
5411 
5412 
5415 
5414 
5415 
5416 
5417 
5416 
5419 
5420 
5421 
5422 
5425 

5424 
5425 
5426 
5427 
5428 
5429 
5450 
5431 
5432 
5435 
5434 
5435 
5436 
5437 
5438 
5439 
5440 
5441 
5442 
5445 
5444 
5445 
5446 
5447 
5448 
5449 



5450 
5451 
5452 



024400 
024400 
024404 
024406 
024412 
024416 
024422 
024426 



024430 
024434 
024440 
024442 



024444 
024446 
024450 
024454 
024456 
024460 
024462 

024464 
024464 
024470 
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<«0 141 



004567 
010500 
012701 
016702 
012705 
016704 
005005 



010477 
032712 
001001 
050105 



030100 
001402 
052712 
005204 
006501 
005505 
001562 



010566 
004756 



160720 

000001 
155572 
000020 
155606 



1SSS44 
000004 



000004 



000014 



RXENBL 



ENABLE RECEIVER 

THIS SUBROUTINE IS USED TO ENABLE RECEPTION ON SELECTED LINES Bv 
SETTING THE ASSOCIATED RX. ENABLE BIT ON THE OUT. 



• INPUTS: 



* OUTPUTS: 



R5 BIT'S SET CORRESPOND TO LINES ON WHICH TO SET RX. ENABLE. 
CSRA - CONTAINS THE ADDRESS OF THE OUT CSR. 

lESTAT • CONTAINS THE STATE OF TXIE AND RXIE BITS IN THE CSR. 
NUMLNS - EQUATED TO BE THE HAXIMUH NUMBER OF LINES AVAILABLE. 
LNCTRA CONTAINS THE ADDRESS OF THE LNCTRL REGISTER. 

R5 BIT'S SET INDICATE PREVIOUSLY DISABLED LINES. 

LNCTRA ■ THE STATE OF THE RX. ENABLE BIT MAT BE ALTERED. 

THE CONTENTS OF THE IND.ADD.REG FIELD IN THE CSR ARE DESTROYED. 



* CALLING SEQUENCE: JSR 

* COMMENTS: 
* 

* SUBORDINATE ROUTINES CALLED: 



PC, RXENBL 



NONE. 



RXENBL:: SAVE 

MOV 
MOV 
MOV 
MOV 
MOV 
CLR 



iSAvE CONTENTS OF GPRS RO THRU R5. 

JSR R5.PREG05 :CALL REGISTER SAVE SUBRT. 

R5.R0 iCOPY BIT MAP OF LINES TO ENABlE. 

4BIT0.R1 > INITIALIZE THE SELECTED LINE BIT MASK. 

LNCTRA. R2 :GET THE ADDRESS OF THE LNCTRL REGISTER. 

•NUMLNS.R5 iGET MAXIMUM LINE NUMBER. 

IESTAT.R4 {GET THE STATES OF THE INT ENABLE BITS. 

R5 ; CLEAR RX. ENABLE BIT LOG OF DISABLED LINES. 



!*SELECT EVERY LINE IN TURN, AND LOG ANY RX.ENBLE BIT THAT IS CLEAR. 

2$: MOV R4.aCSRA lURITE TO OUT CSR TO SELECT LINE REGISTERS. 

BIT «BIT2.(R2) iCHECK STATE OF RX. ENABLE BIT ON SELECTED LINE, 

BNE 4> tSKIP NEXT INSTRUCTION IF RX. ENABLE SET. 

BIS R1.R5 iLOC RX ENABLE BIT CLEAR FOR SELECTED LINE. 



t 
I 

I ■ 
4>i 



6<: 



60(: 



SET RX.ENBLE ON LINES THAT HAVE A CORRESPONDING BIT SET IN THE RX ENABLE 
LINE BIT MAP. 



024472 000207 



BIT 
BEQ 
BIS 
INC 
ASL 
DEC 
BNE 

PASS 



RTS 



Rl.RO tCHECK STATE OF RX. ENABLE LINE BIT MAP. 

6( (BRANCH IF THIS LINE TO REMAIN UNALTERED. 

«BIT2.(R2) {ENABLE RECEPTIONON SELECTED LINE. 

R4 {PREPARE TO SELECT REGISTERS FOR NEXT LINE. 

Rl s SHIFT BIT MAP FOR NEXT LINE. 

R3 {DECREMENT LINE NUMBER. 

21 {LOOP TO CHECK NEXT LINE. 

{RESTORE GPRS. EXCEPT 
MOV R5.R5«.0T(SP) {PUT B5 IN STACK SlOT. 

JSR PC.8(SP)* (RETURN TO PREC05 SUBRT. 

iRS - LINE BIT MAP CORRESPONDING TO THE 
{ PREVIOUS LINES THAT WERE OISABLbO. 

PC 



R5 



5454 
5455 
545to 
5457 
545S 
545«> 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 
5466 
5469 
5470 
5471 
54 72 
547S 



5474 



5475 
5476 
5477 



5476 
5479 



024474 
024476 
024476 
02450C 
024502 
024502 
024506 
024510 
024516 
024524 
024524 
024526 
024SS0 
0245 32 



Mil 
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010046 

104440 
010046 

012700 000340 
104441 

042767 157777 
016777 1S5512 

012600 
104441 
012600 
000207 



155516 
155454 



.S8TTL GLOBAL SUBROUTINE 



RXIEO 



I* 

s* 
;* 
;* 

J* 



THIS ROUTINE 
INPUTS: NONE 



RECEIVER INTERRUPT DISABLE - 
IS USED TO DISABLE RECEIVER INTERRUPTS IN THE DHUll. 



OUTPUTS: 



THE RX.INT.EN8L BIT IS CLEARED IN THE OUT CSR. 



lESTST 
ENABLE 



CONTAINS THE UPDATED 
BITS. 



CALLING SEQUENCE 
COMMENTS: 



JSR 



PC, RXIEO 



THE CONTENTS OF THE INDIRECT 
THE OUT CSR ARE DESTROrEO. 



STATUS or THE Tx AND RX INTERRUPT 



ADDRESS REGISTER FIELD IN 



SUBORDINATE ROUTINES CALLED; NONE 
RXIEO 



MOV 
GETPRI 



RO.-(SP) 
(SP) 



SETPRI ♦PRI07 



:SAVE CONTENTS Of RO ON THE STACK. 
.•SAVE PROCESSOR PRIORITY C(N STACK. 

TRAP CtGPRI 
MOV RO.-(SP) 
s IGNORE ANY INTERRUPT THAT MAY BE GENERATED. 

MOV •PRI07.ro 



BIC 
MOV 

SETPRI 



MOV 
RTS 



♦157777. lESTAT 

lESTAT.aCSRA 

CSP)» 



CSP)< 
PC 



.RO 



sCLEAR RX.INT.EN6L BIT IN 
iDISABLE RX INTERRUPTS. 
(ENABLE INTERRUPTS TO THE 



{RESTORE RO. 



TRAP 
lESTAT. 



CISPRI 



PROCESSOR AGAIN. 

MOV CSP)».RO 
TRAP OSPRI 



Nil 



MSI 
5462 
5483 
5454 
5485 
5486 
5487 
5488 
5489 
5490 
5491 
5492 
5493 
5494 
5495 
3496 
5497 
5498 
5499 
5500 
5501 
5502 
5503 
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RXIEl 



- RECEIVER INTERRUPT ENABLE 
ThtS ROUTINE I^S USED TO ENABLE RECEIVER INTERRUPTS IN THE DMUII. 

NONE. 



* 

* 
* 

* INPUTS: 

* OUTPUTS 

* 

* CALLING SEQUENCE: 
* 

* COMMENTS: THE CONTENTS OF THE INDIRECT ADDRESS REGISTER FIELD IN 

* THE OUT CSR ARE DESTROYED. 
* 

« SUBORDINATE ROUTINES CALLED: NONE. 



THE RX.INT.ENBL BIT IS SET IN THE OUT CSR. 

lESTST -CONTAINS THE UPDATED STATUS OF THE TX AND RX INTERRUPT 
ENABLE BITS. 



JSR 



PC. RXIEl 



024534 052767 000100 155472 

024542 042767 157677 155464 

024550 016777 155460 155422 

024556 000207 



RXIEl:: BIS 46IT06. lESTAT 

BIC 4137677. lESTAT 

MOV lESTAT.aCSRA 

RTS PC 



;SET RX.iNT.ENBL BIT IN lESTAT . 

J CLEAR ALL OTHER BITS, EXCEPT TX AND RX I.E. 

s ENABLE RX INTERRUPTS. 



> i 



S!h«> 
5306 

55oa 

550<» 
5510 
5511 
55U 
551 S 
5514 
5515 
5516 
5517 
5510 
55l«» 
5520 
5521 
5522 
5523 
5524 
5525 
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SAVBrtP 



• SAVE BHP COOES ROUTIHE 

• THIS ROUTINE SAVES THE PARAMETER PASSED IN. ONTO THE BMP CODE QUEUE 

• TOGETHER UITH THE NUMBER OF THE CURRENTLY EXECUTING TEST. 

• II#>UTS: R2 CONTAINS THE BMP CODE THAT IS TO BE PLACED ON THE QUEUE. 

• BMPCQP - CONTAINS ADDRESS OF NEXT LOCATION IN THE BMP QUEUE. 

• BMPCOB LABEL AT BASE OF THE BMP CODE QUEUE. 

• BMPCOE LABEL OF NEXT LOCATION AFTER THE END OF THE BMP QUEUE. 

• TSTNUM CONTAINS THE NUMBER OF THE CURRENT TEST. 



BMPCQP INCREMENTED Bv 4. 

THE CONTENTS OF THE BMP CODE QUEUF ARE UPDATED. 



JSR 



PC.SAVBMP 



5526 












5527 












5526 


024560 






SAVBMP:: SAVE 






024560 


004567 


160540 




JSR 


5529 


024564 


016704 


155720 


MOV 


BMPCQP. R4 


5550 


024570 


116724 


155464 


MOVB 


TSTNUM. (R4). 


5551 


024574 


005204 




INC 


R4 


5552 


024576 


042702 


177400 


SIC 


•177400, R2 


5553 


024602 


010224 




MOV 


R2.(R4). 


5554 


024604 


020427 


002712 


CMP 


R4.»6MPCaE 


5535 


024610 


103402 




BLO 


21 


5536 


024612 


162704 


000004 


SUB 


*4.R4 


5537 


024616 


010467 


155666 


21: MOV 


R4. BMPCQP 


5538 












5539 


024622 
024622 


004 736 




60* : PASS 


JSR 


5540 


0P4624 


000207 




RTS 


PC 



• TOTPUTS: 
* 

• CALLING SEQUENCE: 

• COMMENTS: IF THE OVERFLOW OCCURS THEN THE LAST LOCATION WILL BE 

• OVERWRITTEN Bt ANT SUBSEQUENT ATTEMPTS TO UPDATE THE QUEUE, 
• 

• SUBORDINATE ROUTINES CALLED: NONE. 



J SAVE CONTENTS OF GPRS RO THRU R5. 

R5.PREG05 jCALL REGISTER SAVE S'jBRT. 

iGET THE POINTER TO THE NEXT LOCATION IN QUEUE. 

,SAVE THE CURRENT TEST NUMBEP 0?. IHE QUEUE. 

t INCREMENT THE POINTER TO GIVE rN EvEN ADDRESS. 

, CLEAR THE UNWANTED BITS FROM THE BMP CODE. 

J SAVE THE BMP CODE ON THE QUEUE. 

iCHECK IF OVERFLOW WILL OCC^Jfl THE NEXT TIME. 

iGO SAVE THE POINTER IF Wf UiLL NOT OVERPtOW. 

jRESET THE POINTER TO THE LAST LOCATION IN QL€ . 

jSfl\(F TMf POINTER. 



jRESTORE GPPS. 
PC.»(SP). 



, RE TURN TO PREG05 S.6RT, 



u i 



GLOBAL V4W0UTINI 

5544 
5545 
5546 
554' 
5540 
5549 
5550 
5551 
555*"' 
555 S 
5954 
5555 
5556 
5557 
5550 
5559 
5560 
5561 
5562 



556 S 
5564 
5565 
5566 
5567 
5560 
5569 
5570 
5571 
5572 
5575 
5574 
5575 
5576 
5«i77 
5570 
5579 
5560 
5561 

5562 



024626 
024626 
0246 S2 
024636 



024646 
024652 
024654 
024660 
U24662 
024664 
024670 
024672 
024676 

024700 
024700 
024702 



004567 
012704 
004767 



012 70S 
005301 
016704 
010124 
010824 
020467 
10S774 
032701 
001365 



004756 
000207 
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160472 
000012 
172614 



024642 012701 000060 



052525 
155320 

155526 
000017 



.SBTTL GLOBAL SUBROUTINE 



SKPST5 



SKIP SELF TEST ROUTIHE 
THIS SUBROUTINE IS USED TO SKIP THE SELFTtST AFTER A OUT REStI MAS BEEN 
INITIATED. IT MUST BE ENTERED IMMEDIATELY AFTER SETTING THE DUT MASTER 
RESET ROUTINE OR AFTER THE EXECUTION OF A BUS RESET (BECAUSE 01^ TIMING 
CONSIDERATIONS). 

CSRA CONTAINS ADDRESS OF THE DuT CSR. 

TXBFCA CONTAINS ADDRESS OF OUT DMA BUFFER COUNT REGISTER. 
SKIF SELFTEST COOES ARE URITTEN tq THE OUT REGISTERS. 



* 

t INPUTS: 

• OUTPUTS: 

* CALLING SEQUENCE: JSR PC.SKPSTS 

• COMMENTS: 
* 

* SUBORDINATE ROUTINES CALLED: DELAY. 



SKPSTS:: SAVE 

MOV 
JSR 



I SAVE CONTENTS OF GPRS RO THRU R5. 
JSR RS.PREG05 iCALL REGISTER SAVE SUBRT, 

410.. R4 iPASS DELAY VALUE OF 10 MILLI SECONDS. 

PC.DELAY I DEL AY FOR 10 MILL I SECONDS. 



I URITE SKIP SELF. TEST CODE (52525) TO ALL THE INDEXED DUT REGISTERS. 

' MOV •NUMLNS.'BITOS.Rl iFORM INQ.AOR.REG FIELD (PLUS M.R. BIT) WORD. 

tT»€ ABOVE INCLUSION OF T»€ M.R. BIT IS NECESSARY BECAUSE OF THE 
I LACK OF A M.R. BIT URITE LOCK-OUT ON THE DHU-11. 



4>: 

6<: 

60<: 



NOV 
DEC 

nov 

MOV 
MOV 
CMP 

BLO 
BIT 

BNE 

PASS 
RTS 



•52525. R3 
Rl 

CSRA.R4 

R1.(R4). 

R3.(R4)* 

R4.TXBFCA 

6« 

#l/,Rl 
41 



i INITIALISE T»C SKIP SELF- TEST CODE. 
•SELECT THE NExT SET OF DEVICE REGISTERS. 
iGET T»C ADDRESS OF THE CSR OF THE OUT . 
t SELECT A BAMC OF OUT REGISTERS, 
i URITE THE CODE TO A OUT REGISTER. 
iCOHPARE POINTER WITH LAST REGISTER ADDRESS. 
iLOOP IF NOT ALL REGS DONE IN THIS BANK. 
I TEST FOR INO.AOR.REG FIELD DECREMENTED TO 0. 
tLOOP UNTIL ALl REGISTERS CONTAIN THE CODE. 



PC 



JSR 



i RE STORE GPRS. 
PC.»(SP). 



{RETURN TO PREG05 SLORT. 



^84 

SMS 
55<lf> 

5Mr 

55«<» 
55«»0 
55*1 
559i 
55*S 
55*« 
5595 
55^ 
559' 
55*» 
55»9 
5600 
5«01 
5602 
5605 
5604 
5605 
5606 
5607 
5608 
5609 
5610 
5611 
5612 
56i3 
5614 
5615 
5616 
5617 
5619 
5619 
5620 
5621 
5622 
5625 
5624 
5625 
5626 
5627 
5626 
5629 
S6SA 
56S\ 
56 32 
5635 

5654 
5655 
5656 
5657 
5656 
5659 



.SBTTL GLOBM. SUBROUTINE 



SPLSUP 



IiruTS: 



OUTPUTS: 



- SPLIT SPEED TRANSHISSION/RECEPTION SET iJP 

THIb ROUTINE IS USED TO INITIALISE BOTH THE OUT AND THE 
TRUNSMISSION/RECEPTION CONTROL PARATCTERS TO THE COPREC^ 
STATE. PRIOR TO SPLIT ^ED TRANSMISSION/RECEPTION. 

RO TX.RX LPR CONTENTS TOR LINES IN GROUP II. 

Rl - TX.RX LPR CONTENTS TOR LINES IN GROUP I. 

R2 - START ADDRESS OT DATA PATTERN TO TRANSMIT . 

R5 NUrfiER OF TIME DATA PATTERN TO BE TX ON LINES IN LINCRPI. 

R4 - NUMBER OF TIME DATA PATTERN TO BE TX ON LINES IN L INGRP2. 

ACTLNS - CONTAINS A BIT MAP OF ALL CURRENTlt ACTIVE LINES. 

LGRPIM - CONTAINS THE BIT MAP OF LINE GROUP I LINES. 

L0P8CK - CONTAINS THE TYPE OF LOOPBACK MODE SELECTED. 

CBB • LA8CL AT BASE OF TX/Rx CONTROL BLOCK. 

THE CONTENTS OF THE CONTROL BLOCK ARE DESTROYED. 

THE INDIRECT ADDRESS FIELD OF THE DUT CSR MAr BE DESTRQrEO. 

THE OUT'S LPR'S AND LNC'S MAY BE MODIFIED. 

THE FOLLOWING POINTERS AND COUNTERS ARE INITIALlSEOi 

CHCNT .CHRTOT .DPENO.OPLEN.EXCNT .RXCNT .RXOONF .RXPTR, TXCN) . 

TXOONF . TXPTR , TXRXL . 



CALLING SEQUENCE; 



JSR 



PC. SPLSUP 



TESTING OF 



COMMENTS: THIS ROUTINE SHOULD BE CALLED TUICE DURING THE 
THE SPLIT SPEED CAPABILITIES OF THE OUT. 
SO THAT BOTH LINE GROUPS ARE TESTED ON TRANSMISSION AND 
RECEPTION. 

LPR CONTENTS FOR LINES IN LGRP2M. TX-Y .RX-Z BAUD 
LPR CONTENDS FOR LINES IN LGRPIM. TX-Z.PX«Y BAiJO 



EG. 



REPEAT TX ON LINES IN I IHE GROUP 1 
REPEAT TX ON LINES IN LINE GROUP 2 
J DO SET-UP. 



X TIME-i 
W TIMES. 



024704 
024704 
024 710 
024714 
024720 
024724 



004567 
010067 
010167 
005067 
005067 



160414 
000264 

000262 
155556 
155554 



Rl 
R2 
R3 
R4 

JSR PC SPLSUP 

EXECUTE TEST FQR THE ABOVE SET-UP, 
SUAP THE CONTENTS OF Rl AND fl2. 
SWAP THE CONTENTS OF R5 AND R4. 

Rl - LPR CONTENTS FOR LINES IN LGRP2M. TX-Z.RXo BAlO. 

R2 . LPR CONTENTS FOR LINES IN LGRPlM, TX-T ,RX«Z BAUD, 

R3 - REPEAT TX ON LINES IN LINE GROUP 1 * U TIMES. 

R4 - REPEAT TX ON LINES IN LINE GRO"JP 2 • X TIMES. 
JSR PC, SPLSUP jDO SET UP AGAIN. 

EXECUTE TEST AGATN. 

SUBORDINATE ROUTINES CALLED: CONMAP .RXDSBL .RXtNBL. TXRINI . 



SPLSUP:: SAVE iSAVE CONTENTS OF THE CPR'S RO THRU flS. 

JSR R5.PREC05 iCALL REGISTER SAVE SUBRf 

MOV RO.;OI J SAVE LPR PARAMETER FOR LINE GRP2. 

MOV Rl.72$ jSAVE LPR PARAMETER FQR LINE GRPl. 

CLR TXDONF tCLEAR THE TX DONE FLAGS FOR ALL LINES. 

CLR RXDOr^ iCLEAR THE RX DONE FLAGS FOR ALL LINES. 



1 • 
I 



SET UP THE TRANSMISSIWl/RECEPTION CONTROL BLOCK TO INITlALlSt: fHf t tNEii 











5641 








A > 








5643 


024754 




4 ^A 

005124 


5644 


024740 


0OUOO4 


56*5 


024744 






5646 


024746 


0l2'Z0 


000020 


5647 


024 752 






564f 


024754 




4 &&^4 "^1 


5649 024760 


0467Z0 


175272 


TO 71/ 




116 7^ 


137cV4 












Mem lit! 


Olf f\.Q 


AAA^%9 


565S 








5664 








5655 








5656 








5657 


024776 


AAA 7A7 


AAA7A9 


565S 








5659 








5660 








5661 


025002 


At 37AA 




5662 


025006 


A1 At 3A 




5665 


025010 


At 3 73A 


AAAAAA 


5664 


025014 


At A03A 




5665 


025016 


A1 07^A 


AAAAOA 




02502*; 


A1 A OA 




5667 


025024 


A4 & 7 4 A 
016 'lU 




5666 


025USO 


046720 


4 KC9AA 

155204 


5669 025034 


4 t 7 9A 

116 rcO 




5670 


025040 


AACOAA 




5671 


025042 


012710 


0O0O02 


5672 








5673 








5674 








5675 








56 7A 025046 


AAA 7£ 7 
004 76/ 


AAA^ ■'^ 

00O692 


5677 








5678 








5679 








5660 








5661 








5662 








5663 








5664 








5665 


025052 


Ai a7At 


1 77777 


5666 


025056 


n 1 ft 7A3 


t A 


5687 


025062 






5686 


025064 


nA*5T AO 




5669 


025066 


AJA1 A3 




5690 


025070 




1 <><M 
1331^^ 


5691 


02507* 


010267 


156054 


5692 


025100 


005067 


156026 


5695 


025104 


016767 


00007C 156010 


5694 


025112 


004767 


000566 


5695 
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Ih CROUP II 



NOV 

hOV 

HOV 

HOV 

MOV 

HOV 

MOV 

BIC 

HOVB 

INC 

HOV 



PACt 101 I 



'«0 14 7 



RO.CBB 
•CBB*2.R0 

R2.CR0>. 

•16. .(RO)* 

R4.CR0)* 

ACTLNS.(RO) 

LG*W»lH.iRO). 

L0PeCK.CRO)< 

RO 

»2.(R0) 



jSet contents or lpr params in tx/rx c.blk. 

iGET BASE ADDRESS OF CONTROL BLOCK. 

.LNCTRL PARAMETER. Er*A8LE RECEIVERS. 

ibTART ADDRESS OF DATA PATTERN. 

iDATA PATTERN LENGTH SET TO 16. 

{NUMBER OF DATA PATTNS TQ TRANSMIT ON LINGRP2. 

»8IT MAP OF LINES TO INITIALISE. 

S CLEAR THE UNWANTED LINES FROM BIT MAP. 

:SET LOOPBACK MODE. 

(INCREMENT ADDRESS TO ACCESS NEXT UORO. 

I SET OFFSET FOR EACH TRANSMISSION START TO 2. 



J INITIALISE THE OUT AND THE ASSOCIATED POINTERS AND COUNTERS. TO TmE STAft 
t DICTATED BY THE CONTENTS OF THE TX/RX CONTROL BLOCK, 

JSR PC.TXRINI jINITIALlSE OUT. 



I ♦ 



SET UP CONTROL BLOCK FOR LINES IN GROUP I, 



t - 



HOV 

HOV 

HOV 

HOV 

HOV 

HOV 

HOV 

BIC 

HOVB 

INC 

MOV 



JSR 



•CBB.RO 

Rl.CRO)* 

•4.CR0)* 

R2.(R0)* 

•16..(R0)» 

ns.(RO). 

ACTLNS.(RO) 
LGRP2M,(R0). 
LOPBCK.CRO). 
RO 

#2. (HO) 



PC.TXRINI 



tGET START ADDRESS OF CONTROL BLOCK. 
sSET LPR PARAMETER FOR LINES TO RECEIVE DATA. 
J LNCTRL PARAMETER. F.NA8LE RECEIVERS. 
:START ADDRESS OF DATA PATTERN. 
:DATA PATTERN LENGTH SET TO 16. 
iNOIBER OF DATA PATTNS TO TRANSMIT ON LINGRPI. 
iBIT MAP OF LINES TO INITIALISE. 
;CLEAR THE UNWANTED LINES FROM BIT MAP. 
iSET LOOPBACK MODE. 

I INCREMENT ADDRESS TO ACCESS NEXT UORO. 
iSET OFFSET FOR EACH TRANSMISSION START TO 2. 

I*INITIALISE THE OUT AND THE ASSOCIATED POINTERS AND COUNTERS, TO THE STATE 
I DICTATED Br THE CONTENTS OF THE TX/RX CONTROL BLOCK. 

* {INITIALISE OUT. 



i SET UP TME REQUIRED LPR PARAMETERS NEEDED FOR THE CORRECT RkCEPTION OF DATA 
t ON ASSOCIATED IN-ACTIVE LINES. 

( - 



i 



INITIALISE LPR PARAMETERS FOR LINE GROUP 1. 



( - 



MOV •MAOLNS.Rl iSET UP BIT MAP CORRESPONDING TO ALL LiNkS. 

MOV ACTLNS.R2 jGET TME ACTIVE (Tx) LINE BIT MAP, 

COM Rl {GENERATE A BIT MAP OF NONE EXISTANT LINES. 

COM R2 {GENERATE A BIT MAP OF INACTIVE LINES. 

BIC R1.R2 {CLEAR ANY "NONE EXISTANT" INACTIVE LINES. 

BIC LGRP2M.R2 {ONLY PASS LGRPl ASSOTIATED LINE BIT MAP. 

MOV R2.CBMAPA {SET UP BIT MAP IN CONTROL BLOCK. 

CLR C8DPNA {CLEAR REPEAT TX COUNT IN CONTROL BLOCK. 

MOV 72»,CBLPRA {SET-UP COMPLEMENTARY LPR PARM FOR LCRP..'. 

JSR PC.TXRINI {INITIALISF. INACTIVE LINES IN LCRP<>. 



I • 



INITIALISE LPR PARAMETERS f OR LINE GROUP ?. 
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5607 








5648 


029116 


0 16 702 


155050 


56«W 


025122 






5700 025124 


040102 








046702 


155104 






0 1026 7 


155776 


570S 


0251S6 


016767 


000056 


5704 




00476/ 


000554 


5705 








5706 








5707 








5 70S 








5709 








5710 


025150 


0l?705 


177777 


5711 


025154 


0O4767 


177124 


57li 








5713 








5714 








5715 


025160 


016705 


155006 


5716 


025164 


004 767 


172212 


5717 


025170 


004767 


177204 


5718 








5719 


025174 
025174 


004736 




5720 


025176 


000207 




5721 


025200 


000000 




5722 


025202 


000000 





MOV ACTLNS.R2 j3£T THE ACTIVE (Tx) LINE BIT MAP. 

COH R2 jGENERATE A BIT MAP OF INACTIVE LINES. 

BIC R1.R2 iCLEAB ANY NONE EXISTANT INACTIVE LINES. 

BIC LGRP1M.R2 jONLY PASS LGRP2 ASSOCIATED LINE BIT MAP. 

MOV R2.CBMAPA ;SET UP 811 MAP IN CONTROL BLOCK. 

MOV 70I.CBLPRA tSET-UP COMPLAMENTARy LPR PARAM FOR cGRPl. 

JSR PC.TXRINI INITIALISE INACTIVE LINES IN LGRPl . 

! DISABLE RECEIVERS ON ALL LINES TO ENSURE THAT ON>.Y TME RECEIVERS OF ThF 
i ASSOCIATED ACTIVE CTX) LINES ARE ENABLED. (STAGGAREO LOOPBACK) 
I RE -ENABLE RECEPTION ON TME CORRECT ASSOCIATED LINES. 

* MOV 4MAPLN5.R5 jSET-UP BIT MAP FOR ALL LINES. 

JSR PC.RXOSBL : DISABLE RX ON ALL LINES. 

t ENABLE RECEIVERS ON ASSOCIATED (RX) LINES. 



60<! 



70*: 
72»: 



MOV 
JSR 
JSR 

PASS 



ACTLNS.R5 
PC.CONMAP 
PC.RXENBL 



jCET ACTIVE (TX) LINE BIT MAP. 

{GENERATE AN ASSOCIATED (RX) LINE BIT MAP. 

sENABLE RECEIVERS ON ASSOCIATED LINES. 



RTS PC 
.UORD 0 
.WORD 0 



JSR 



sRESTORE GRP'S. 
PC.8(SP). 



I RE TURN TO PREG05 S>.J8Rr, 



sLOCAL STORAGE OF l PR PARAMETER LGRP2. 
:LOCAL STORAGE OF LPR PARAMETER UGRPl. 



PART4 



9724 
5T25 
5V* 
572? 
5720 
5W 
57SO 

5752 
573S 
5754 
5755 
5756 
5757 
575« 
5759 
5740 
5741 

5742 
5745 
5744 
5745 

5746 
5747 
5748 
5749 

57S0 



MACRO ni200 
STPSM 



025204 

025204 004567 160114 

025210 010146 

025212 012746 025220 

025216 000002 
025220 

025220 004756 

025222 000207 



Gi2 



IS rMR 64 09:48 PAGE 102 



StO 14'il 



.SSTTL GL03AL SUBAOUTINE STPSu 

!• SET PROCESSOR STATUS UORO 

THIS ROUTINE SETS THE PSW TO THE CONTENTS OF Hi, 



$• 
»• 
»• 
• 

* 

J* 

• 

»• 



AOOR; 



I»#»UTS: Rl 
OUTPUTS: PSW 
CALLING SEQUENCE: 



CONTAINS THE NEW PSU SET'INGS 
SET TO THE CONTENTS OF Rl 
J5R PC.STPSW 



COMMENTS: 
SUBROUTINES CALLED 



USED IN THE DMA ADDRESS TEST TO SET THE PROCESSOR 
PRIORITY WITHOUT MAKING A CALL TO THE ORS. 



NONE. 



STPSW: : SAVE 



MOV 
MOV 

RTI 

PASS 

RTS 



JSR 

Rl. (SP) 
•ADDR. (SP) 



R5.PREG05 {CALL REGISTER SAVE SU8RT. 

jPUSH THE NEW PSW CONTENTS ONTO THE STACK 
;PUSH THE NEW PC VALUE ONTO THE STACK 
(LOAD THE NEW PC AND PSW 



PC 



JSR 



PC.a(SP). 
! RE TURN 



;RE1URN TO PREG05 SUBRT. 



1. i_ 



4AT4 



'^rb2 

5'">4 

5756 
5757 
5758 
irj9 
5760 
5/61 
576^ 
5765 
5764 
5765 
5 766 
5767 
5760 
5769 
5770 
5771 
5772 
5775 

5774 
5775 
5776 
5777 
5778 
577«» 
5780 
5781 
5782 
5783 
5784 
5785 
5786 
5787 
5788 
5789 
5790 
5791 
5792 
579S 
5794 
5795 
57V6 
5797 
5798 
5799 
5800 
5801 
5802 
S80S 
5804 
5605 
5806 
5807 



025224 
025224 



025230 
025254 
025240 
025242 
025244 



025246 
025250 
025254 
025256 
025260 
025262 
025264 
025266 
025270 
025274 
025S00 
025304 



016705 
016702 
040203 
005703 
001427 



005004 
012702 
03020S 
001003 
006102 
005204 
000773 
006304 
016401 
016702 
004767 
006301 
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'^0 I'jfj 



004567 160074 



154736 
155242 



000001 



003442 
154746 
174154 



T)rDONt 



TRANSMISSION DONE - 
THIS SueSOUTlNE IS USED IN THE TRANSMISSION/RECEPTION TESTS TO ALLOW 
TIME PGR TRANSMISSION TO COMPLETE ON OUTSTANDING LINES. 



J • 
J* 
s* 

!♦ 

s* 
;* 
J* 
* 
* 

* 



INPUTS: ACTLNS CONTAINS BIT M«> OT ALL ACTIVE LINES. 

TXDONF TX DONE PLAGS. SET FOR LINES THAT HAVE SENT ALL CHARS. 
CHCNT TABLE CONTANING THE NUMBER QT CHARS TO BE TXO. 

OUTPUTS: TRANSMISSION INTERRUPTS ARE DISABLED. 

CALLING SEQUENCE: JSR PC.TxDONE 
COMMENTS: 

SUBORDINATE ROUTINES CALLED: MSL00P.nUL16U. 



TXOONE:: SAVE 



I SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 tCALL REGISTER SAVE SUBRT. 



; CHECK IF ALL ACTIVE LINES HAVE COMPLETED TRANSMISSION. 
, IF ANT HAVE NOT TET COMPLETED. DETERMINE THE TX CHAR COUNT FOR A 
LINE THAT HAS OUTSTANDING CHARACTERS TO TRANSMIT. USING THIS VALUE. 
CALCULATE THE TIME OUT VALUE NEEDED AT THE CURRENTLY SELECTED BAUD RATE. 

MOV ACTLNS. R3 .GET THE ACTIVE LINE BIT MAP. 

MOV TXDONF. R2 iGET THE BIT MAP OF LINES THAT HAVE COMPLETED. 

6IC R2.R3 {GENERATE A BIT MAP OF LINES THAT ARE STILL TX. 

TST R5 I CHECK IF ALL LINES HAVE COMPLETED TX. 

BEQ 61 iGO DISABLE TX INTERRUPTS IF Al ! DONE. 

j VlND A cXNE THAT HAS NOT COMPLETED TRANSMISSION. 

8 OBTAIN THE EXPECTED CHARACTER COUNT FOR THAT LINE (WHICH IS THE SAME FOR 
I ALL OTHER LINES WITH OUTSTANDING TX'S). 
; CALCULATE TlME-OuT VALUE. 



CLR R4 

MOV ♦l.RS 

2«: BIT R2,R5 

BNE 4$ 

ROL R2 

INC R4 

BR 2» 

4«: ASL R4 

MOV CHCNTBCR4),Rl 

MOV RXT0UT.R2 

JSR PC.HUL16U 

ASL Rl 



(CLEAR LINE NUMBER COUNTER. 

sSELECT BIT MAP FOR THE FIRST LINE. 

iSEE IF THIS LINE HAS COMPLETED. 

I BRANCH IF THIS LINE HAS NOT COMPLETED TX. 

jSHlFT THE LINE BIT MAP FOR THE NEXT LINE. 

t INCREMENT THE LINE NUMBER COUNTER. 

:LOOP TO CHECK THE NEXT LINE. 

{LINE NUMBER X 2 TO OBTAIN OFFSET INTO TABLE. 

iGET THE EXPECTED NUMBER Of CHARS TO BE TX 0. 

iGET THE CURRENT TIME-OUT VALUC FOR ONE CHAR. 

iCNUMBER OF CHARS TO TX) X (TIME-OUT QF I CHAR) 

jHULTIPLT DELAY TIME BY 2 TO GIVE A SAFE V4L.E. 



» WAIT FOR ALL OUSTAHDING TRANSMISSIONS TO COMPLETE OR TIME-OUT. 
i DISABLE ALL TRANSMISSION INTERRUPTS. 



025506 016702 154660 



MOW 



ACTLNS. R? 



,PASS A BIT MAP OF THE BITS TO TEST. 



M08 02531^ 010205 NOV 

5009 025S14 012704 002S02 NOV 

5010 025520 004767 175664 JSR 

5011 025524 004767 000270 6$: JSR 
S012 

5015 025550 60S: PASS 

025550 004756 

5014 025552 000207 RTS 
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R2.R5 jPASS THE EXPECTtO STATE Of THE TXOOt^ , 

•TXD0NF.R4 sPASS THE ADDRESS OF TmE WORD TO TEST. 

PC.nSLOOP ;MAIT FOR TIME OUT OF TX COMPLETION. 

PC.TXifO {DISABLE ALL TX INTERRUPTS. 



PC 



! RESTORE GPRS. 

JSR PC.WSP). , RE TURN TQ PREGOS SUBRT, 



Ji2 



Omu-11 tunc TST P/WiT4 
GLOBAL 5i«R0uTINE 



5616 

wr 

5918 
5819 
5820 
5821 
5822 
5825 
5824 
5825 
5826 
5827 
5828 
5829 
58S0 
5831 
5852 
56S5 
5854 
5835 
5636 
5857 
5838 
5859 
5640 



5841 
5842 
5645 
5844 
5645 
5646 
5847 
5848 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5656 
5659 
5660 
5661 
5662 
5863 
5664 
5665 
5666 
5667 



5668 
5869 



025554 
025554 
025340 
025542 
025546 
025552 
0255S4 
025560 
025564 



025566 
025572 
025374 
025376 



025400 
0r5402 
025404 
025410 
025412 
025414 
025416 

025420 
025420 
025424 



004567 
010500 
012701 
016702 
005202 
012703 
016704 
005005 



010477 
105712 
100001 
050105 



050100 
001402 
142712 
005204 
006301 
005305 
001565 



010566 
004756 
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SCO IS*- 



157764 

000001 
154642 

000020 
154650 



154606 



000200 



000014 
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TXDbBL 



* TRANSMITTER DISABLE 

* THIS S^JBROUTIhC IS USED TO DISABLE TRANSMISSION ON SELECTED LINCS ST. 
CLEARING THE ASSOCIATED TX. ENABLE GIT ON THE DOT. 



* II#>UTS: 



!* OUTPUTS: 
!• 



R5 BIT'S SET CORRESPOND TO LINES ON HHICH TO CLEAR TX. ENABLE. 
CSR\ • CONTAINS THE ADDRESS OF THE OUT CSR. 

lEb AT - CONTAINS THE STATE OF TXIE AND RXIE BITS IN THE CSR. 
NUMLilS EQUATED TO BE THE MAXIMUM NUMBER OF LINES AVAILABLE. 
TXA02A CONTAINS THE ADDRESS OF THE TBUFrAD2 REGISTER. 

R5 - BIT'S SET INDICATE THE INITIAL STATES OF ALL TX.ENBLE BITS. 

TBUFFA02 - THE STATE OF THE TX.ENBLE BIT MAY BE ALTERED. 

THE CONTENTS OF THE IND.ADD.REG FIELD IN THE CSR ARE DESTROtED. 



* CALLING SEQUENCE: 
* 



JSR 



PC.TXDSBL 



COMMENTS: 



(* SUBORDINATE ROUTINES CALLED: NONE. 



TXDSBL:: SAVE 

MOV 
MOV 
MOV 
INC 
MOV 
MOV 
CLR 



tSAVE CONTENTS OF GPRS RO THRU R5. 

JSR R5.PREG05 sCALL REGISTER SAVE SUBRT. 

R5.R0 tCOPY BIT MAP OF LINES TO DISABLE TRANSMISSION. 

•6IT0.R1 ; INITIALIZE THE SELECTED LINE BIT MASK. 

TXA0?A.R2 tGET THE ADDRESS OF THE TBUFFAD2 REGISTER. 

R2 sGET THE ADDRESS OF THE MSBYTE OF TBUFFAD2 REG. 

«NUMLNS.R3 iGET MAXIMUM LINE NUMBER PLUS ONE. 

IESTAT.R4 iGET THE STATES OF THE INT ENABLE BITS. 

R5 tLOG POSSIBLE TX DISABLED ON ALL LINES. 



!*SELECT EVERY LINE IN TURN, AND LOG THE STATE OF EACH TX. ENABLE BIT. 



2f ; 



I ♦ 

t 

t 

t • 
4t: 



6f I 



MOV R4.aCSRA 

TSTB (R2) 

BPL 4$ 

BIS Rl.RS 



; WRITE TO OUT CSR TQ SELECT LINE REGISTERS. 
»CHeCK STATE OF TX. ENABLE BIT ON SELECTED LINE. 
:SKIP NEXT INSTRUCTION IF TX. ENABLE CLEAR. 
sLOG TX ENABLE BIT SET FOR SELECTED LINE. 



CLEAR TX.ENBLE ON LINES THAT HAVE A CORRESPONDING BIT SET IN THE TX DISABLE 
LINE BIT MAP. 

{CHECK STATE OF DISABLE LINE BIT MAP. 
{BRANCH IF THIS LINE TO REMAIN UNALTERED. 
tCLEAR TX. ENABLE BIT ON SELECTED LINE. 
{PREPARE TO SELECT REGISTERS FOR NEXT LINE. 
{SHIFT BIT MAP FOR NEXT LINE. 
{DECREMENT LINE NUMBER. 
{LOOP TO CHECK NEXT LI^€. 



60 »: 



BIT 


Rl.RO 


BEQ 


6< 


BICB 


«61T7.(R2) 


INC 


R4 


ASL 


Rl 


DEC 


R3 


BNE 


2i 


PASS 


R5 



02S426 000207 



RTS 



PC 



{RESTORE GPRS. EXCEPT 
MOV RS.RSSLOTCSP) {PUT R5 IN STACK SLOT. 

JSR PC.a(SP)» (RETURN TO PREC05 SUBRT. 

iRS PREVIOUS STATES OF ALL FX. ENABLE BPb. 



i<i2 



5871 
5672 
907S 
5874 
^875 
•>876 
5877 
5878 
5879 
5880 
5881 
5882 
5883 
5804 
5885 
3886 
5887 
5888 
5889 
5890 
5891 
5892 
5893 
5894 

5895 
5896 
5897 
5898 
5899 
5900 
5901 
5902 
5903 
5904 
5905 
5906 
5907 
5908 
5909 
5910 
5911 
5912 
5913 
5914 
5915 
5916 
5917 
5918 
5919 
5920 
5921 



5922 
5923 
5924 



025430 
025430 
025434 
025436 
025442 
025446 
025450 
025454 
025460 



025462 
025466 
025470 
025472 



025474 
025476 
025500 
025504 
025506 
025510 
025512 

025514 
025514 
025520 



004567 
010500 
012701 
016702 
005202 
012705 
016704 
005005 



010477 
105712 
100401 
050105 



030100 
001402 
152712 
005204 
006301 
005303 
001363 



010566 
004736 
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SCO 15', 



157670 

000001 
154546 

000020 
154554 



154512 



000200 



000014 
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TXENBL 



* 
* 

!* 
J* 
* 
* 
* 
* 

« 
« 
« 



TRANSMITTER ENABLE 
THIS SUBROUTINt IS USED TO ENABLE TRANSMISSION ON SELECTED LINES Bt 
SETTING THE ASSOCIATED TX. ENABLE BIT ON THE DUT. 



INPUTS; 



OUTPUTS: 



R5 BIT'S SET CORRESPOND TO LINES ON WHICH TO SET TX, ENABLE. 
CSRA - CONTAINS THE ADDRESS Of THE DUT CSR. 

lESTAT - CONTAINS THE STATE OF TXIE AND RXIE BITS IN THE CSR. 
NUMLNS EQUATED TO BE THE MAXIMUM NUMBER OF LINES AVAILABLE. 
TXAD2A CONTAINS THE ADDRESS OT THE TBUFrAD2 REGISTER. 

R5 BIT'S SET INDICATE PREVIOUSLY DISABLED LINES. 

TBUrrA02 - THE STATE OF THE TX.ENBLE BIT MAY BE ALTERED. 

THE CONTENTS OF THE INC. ADD. REG FIELD IN THE CSR ARE DESTROYED. 



JSR 



PC.TXENBL 



CALLING SEQUENCE: 
COMMENTS: 

SUBORDINATE ROUTIfCS CALLED: NONE. 



TXEN6L: : SAVE 

MOV 
MOV 
MOV 
INC 
MOV 
MOV 
CLR 



sSAVE CONTENTS OF GPRS RO THRU R5. 

JSR R5.PREG05 >CALL REGISTER SAVE SUBRT. 

R5.R0 (COPY BIT MAP OF LINES TO ENABLE. 

«BIT0,R1 s INITIALIZE THE SELECTED LINE BIT MASK. 

TXAD2A.R2 :GET THE ADDRESS OF THE TBUFFAD2 REGISTER. 

R2 :GET THE ADDRESS OF THE MSByTE OF TBUFFAD2 REG. 

«NUMLNS.R3 iGET MAXIMUM LINE NUMBER. 

IESTAT.R4 ;GET THE STATES OF THE INT ENABLE BITS. 

R5 sCLEAR TX. ENABLE BIT LOG OF DISABLED LINES. 



s SELECT EVERY LINE IN TURN. AND LOG ANY TX.ENBLE BIT THAT IS CLEAR. 



2is 

I ♦ 

I 
I 

i ■ 

41: 
6t: 

60*1 



MOV R4 , 9CSRA 

TSTB CR2) 

BMI 4$ 

BIS R1.R5 



{WRITE TO OUT CSR TO SELECT LINE REGISTERS. 
-.CHECK STATE OF TX. ENABLE BIT ON SELECTED LINE, 
sSKIP NEXT INSTRUCTION IF TX. ENABLE SET. 
iLOG TX ENABLE BIT CLEAR FOR SELECTED LINE. 



SET TX.ENBLE ON LINES THAT HAVE A CORRESPONDING BIT SET IN THE TX ENABLE 
LINE BIT MAP. 



025522 000207 



BIT 
8EQ 
BISB 
INC 

ASL 
DEC 
6NE 

PASS 



RTS 



Rl.RO jCHECK state of TX. ENABLE LINE BIT MAP. 

6* {BRANCH IF THIS LINE TO REMAIN UNALTERED. 

«BIT7.(R2) {ENABLE TRANSMISSION ON SELECTED LINE. 

R4 jPREPARE TO SELECT REGISTERS FQR NEXT LINE. 

Rl tSHlFT BIT MAP FOR NEXT LINE. 

R5 t DECREMENT LINE NUMBER. 

2» sLOOP TO CHECK NEXT LINE. 

{RESTORE GPRS. EXCEPT 
MOV R5.R5SL0T(SP) |PUT R5 IN STACK SLOT. 

JSR PC.8(SP)» {RETURN TO PREC05 SUBRT. 

iR5 LINE BIT MAP C0RRESP0M3INC TO THE 
; PREVIOUS LINES THAT WERE DISABLED. 

PC 



R5 



Li2 
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<.£0 l!/4 



5926 
5927 
5928 
5929 
5930 
5931 
5932 
5933 
5934 
5935 
5936 
5937 
5938 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
5946 
5947 
5948 
3949 
5950 
5951 
5952 
5953 
5954 
5955 
5956 
5957 

5958 
5959 
5960 
5961 
5962 
5963 
5964 
5965 
5966 
5967 
5968 
5969 
5970 
5971 
5972 
5975 
5974 
5975 
5976 
5977 
5978 
5979 
5980 
5981 



025524 
025524 
025530 
025554 
025536 



004567 
016705 
005104 
040405 



157574 
154456 



025540 005001 



025542 
025544 
025546 



025550 
025552 
025554 
025560 



000241 
006005 
103017 



010104 
006304 
016403 
016402 



003202 
00S342 



.SeTTL GLOBAL SUBROUTINE 



TXFRPR 



TRANSrtl' rRAmiNC ERROR DATA RO«JTINE 
THIS ROUTINE IS USED TO INITIATE DMA MODE TRANSMISSION 

IN THE FRATVIING ERROR TEST. IT SENDS A SINGLE CHARACTER DMA BUFFER ON 
EACH ACTIVE LINE IN THE BIT MAP. TO CAUSE FUTURE TX INTERRUPTS UMICM 
yiLL CONTINUE THE TRANSMISSION IF MORE THAN ONE BUFFER IS TO BE SENT. 



INPUTS; 



OUTPUTS: 



R4 CONTAINS THE LINES ON UHICH TX IS TO TAKE PLACE. 
ACTLNS ' ACTIVE LINES BIT MAP. 

BITTBL LABEL OF TABLE OF UORDS EACH WITH A BIT SET. 
CSRA CONTAINS THE ADDRESS OF THE OUT CSR. 

OPENDB - BASE OF THE DATA PATTERN END TABLE (ENTRY PER LINE). 

OPLENB BASE OF THE DATA PATTERN LENGTH TABLE. 

lESTAT PRESERVED STATES OF THE OUT INTERRUPT ENABLE BITS. 

NUMLNS EQUATED TO NUMBER OF LINES ON A OUT. 

TXCNTB - LABLE AT BASE OF THE TX CHARACTER COUNTER TABLE. 

TXPTRB LABEL AT BASE OF THE TX DATA PATTERN POINTERS TABIE, 

CSR - OUT CSR IND.ADR.REG FIELD IS DESTROYED. 

TXCNTX - COUNTERS INCREMENTED FOR LINES ON WHICH CHARS SENT. 

TXINTF - TX INT FLAGS (BIT SET IF DMA. HO FOUND SET ON LINE). 



CALLING SEQUENCE 
COMMENTS: 



JSR 



PC.TXFRPH 



THIS ROUTINE ASSUMES THAT AT LEAST ONE DATA PATTERN SHOULD BE 
TRANSMITTED ON EACH ACTIVE LINE. 
INTERRUPTS MUST BE DISABLED WHEN CALLING ^HIS ROUTINE. 



SUBORDINATE ROUTINES CALLED: OOOMA. 



TXFRPR:: SAVE 

MOV 
COM 
BIC 



;SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 iCALL REGISTER SAVE SU6RT. 

ACTLNS. R5 sGET THE ACTIVE LINE BIT MAP. 

R4 {GET BIT MAP OF LINES THAT WILL RECEIVE DATA. 

R4.R5 {CLEAR LINES THAT UILL RX FROM TX LINE BIT MAP. 



» ♦ 



SET UP LOOP UHICH HANDLES ONE LINE PER ITERATION. 

CLR Rl > CLEAR THE LINE NUMBER COUNTER. 



! ♦ 



IF THE LINE IS INACTIVE SKIP TO SELECT THE NEXT LINE, 



21: 



CLC 
ROR 
BCC 



R5 
6< 



i CLEAR BOOLEAN REGISTER. 

J SHIFT BIT MAP OF LINES TO TX ON INTO BOOL. REG. 
, DON'T TX ON THIS LINE IF IT IS NOT ACTIVE. 



LINE IS ACTIVE. 

INITIATE DMA ON THIS LINE. 

GET THE DATA PATTERN LENGTH FOR THIS LINE. 



MOV R1.R4 

ASL R4 

MOV DPLENBCR4}.R3 

MOV TXPTRBCR4),R2 



I COPY LINE NUMBER. 

; CALCULATE MORD OFFSET FOR THIS LINE. 
(GET DATA PATTERN LENGTH FOR THIS LINE. 
;PREPARE TO PASS DATA PATTERN ADR TO OODMA RTN. 



I ♦ 



J VWITE DMA PARAMETERS TO THE OUT. 



Mi2 
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5982 
598S 
5984 
5985 
5986 
5987 
5986 
5989 
5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 

6002 



025564 

025570 



025572 
025600 



025606 
025610 
025612 

025614 
025614 
025616 



004767 
103404 



056467 
000402 



005201 
005705 
001353 



004756 
000207 



172122 



002364 154464 



025602 060364 003502 



JSR 
BCS 



PC.OCHWA 
4« 



4$ ; 



iSKIP ERROR IF OODMA MAS SUCCESSFUL. 

SET THE PROPER BIT OF THE TX INTERRUPT FLAGS TO INDICATE TME LINE ERROR. 

BIS BITTBL(R4).TXINTF : INDICATE THE ERROR. 

BR 6» sSKIP UPDATING POINTERS AND COUNTERS. 

UPDATE THE TX CHARACTER COUNT FQR THIS LINE. 

ADO R3.TXCNTB(R4) ;ADD THE DATA PATTERN LENGTH TO TX CHAR COUNT. 



INCREMENT LINE COUNTER. GOTO NEXT LINE IF NOT DONE. 



; - 
6*: 



60$ 1 



INC 
TST 
BNE 

PASS 

RTS 



Rl 
flS 
2» 



PC 



INCREMENT THE LINE COUNTER. 
TEST THE TX LINE BIT MAP. 

LOOP TO SEND CHAR TO ANOTHER LINE IF NOT DONE. 



JSR 



: RES TORE GPRS. 
PC.a(SP)» 



sRETURN TO PREG05 SUBRT , 



Ni2 
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SEQ 156 



6004 
6005 
6006 
6007 
6006 
6009 
6010 
6011 
6012 
6015 
6014 
6015 
6016 
6017 
6016 
6019 
6020 
6021 
6022 
602 S 



6024 



6025 
6026 
6027 



6028 
6029 



.SBTTL GLOBAL SUBROUTINE 



TXIEO 



025620 
025622 
025622 
025624 
025626 
025626 
025652 
025654 
025642 
025650 
025650 
025652 
025654 
025656 



010046 

104440 

010046 

012700 000340 
104441 

042767 177677 154372 
016777 154366 154330 

012600 
104441 
012600 
000207 



- TRANSMITTER INTERRUPT OISABLF - 
THIS ROUTINE IS USED TO DISABLE TRANSMITTER INTERRUPTS IN THE DHUll. 

NONE. 

THE IX.INT.ENBL BIT IS CLEARED IN THE OUT CSR. 
lESTSi -CONTAINS THE UPDATED STATUS OP THE TX AND RX INTERRUPT 
ENABLE BITS. 



J* 

I* INPUTS: 
;* 

J* OUTPUTS 
J* 
a* 

:* CALLING SEQUENCE: 
{* 

S* COMMENTS: THE CONTENTS OF THE INDIRECT ADDRESS REGISTER FIELD IN 
t* THE DUT CSR ARE DESTROYED. 

!* SUBORDINATE ROUTINES CALLED: NONE. 



JSR 



PC. TXIEO 



TXIEO: 



MOV 
GETPRI 



RO.-CSPl 
-CSP) 



SETPRI ♦PRI07 



BIC n 77677. lESTAT 
MOV lESTAT.SCSRA 
SETPRI (SP)» 



MOV 

RTS 



CSP5».R0 
PC 



sSAVE CONTENTS OF RO ON THE STACK. 
;SAVE CURRENT PROCESSOR PRIORITY ON IME STACK. 

TRAP C»GPRI 
MOV RO.-(SP) 
; IGNORE ANY INTERRUPTS THAT MAY BE GENERATED. 

MOV #PRI07.R0 
TRAP C«SPRI 
{CLEAR TX.INT.ENBL BIT IN lESTAT , 
{DISABLE TX INTERRUPTS. 

•.ENABLE INTERRUPTS TO THE PROCESSOR AGAIN. 

MOV CSP)».RO 
TRAP CiSPRI 

{RESTORE RO. 



Bl 



7 



OMU 11 'UNC TST PAAr4 
dOSAl si<W(X'TIN[. 



6031 
605^ 
6055 
6054 
6055 
6056 
605' 
6050 
6059 
6040 
6041 
604J 
6045 
6044 
6045 
6046 
6047 
604S 
6049 
6050 
6051 
605? 
6055 
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.SBTTL GLOBAL SUBROUTINE 



TXIEl 



THIS ROUTINE I' 



■RANStllTTER INTERRUPT ENABLE 
USED TO ENABLE TRANSMITTER INTERRUPTS IN THE UHUll. 



• INPUTS: 



NONE. 



THE TX.INT.ENBL BIT IS SET IN THE OUT CSR. 

lESTSr CONTAINS THE UPDATED STATUS OF THE Tx AND Rx INTERRUPT 
ENABLE BITS. 



• OUTPUTS! 
* 

• CALLING SEQUENCE: 
• 

• COMMENTS: THE CONTENTS OF THE INDIRECT ADDRESS REGISTER FIELD IN 

• THE OUT CSR ARE DESTROYED . 

• SUBORDINATE ROUTINES CALLED: NONE. 



JSR 



PC.TXIEI 



025660 052767 040000 154546 

025666 042767 137677 154340 

025674 016777 154334 154276 

025702 000207 



TXlEl:: BIS 46IT14. lESTAT 

BIC #137677. lESTAT 

HOV IESTAT.8CSRA 

RTS PC 



•SET TX.INT.ENBL BIT IN lESTAT. 
iCLEAR ALL BITS EXCEPT TX RX I.E BITS. 
iFNABLE TX INTERRUPTS. 



^0^5 .S8TTL GLOBM. SUBROUTIME TxRINI 

tat »»• •*•••••••••••••••♦•••.••»•.••••♦••♦.••..»••••••••.••.•••••>••.•••»••«»••••♦ 

bOSr I* mANSKIT ?*N0 RECEIVE INITIALIZATICN ROUIINE 

6050 I* THIS SUBROUTINE PERFORtlS THE INITIALISATION Of THE VARIOUS POINTERS. 
6054 I* COUNTERS. AND Ft. AGS V^ICH ARE USED DURING THE TRANSMISSION AND 

6060 I* RECEPTION PORTION OF A TEST. THIS INITIALIZATION IS PERTORMEO ON 

6061 I* THE SPECIFIED LINES OM.Y. OTHER I INE VARIABLES REMAIN UNCHANGED. 
t>0b2 i* 

606S I* INPUTS: CHCNT8 - LABEL AT BASE OF LINE CHARACTER COUNT TABLE. 

6064 t* C»«TOT MAX 9 OF CHARS TO RX ON LINES ALREADY INITIALIZED. 

6065 i* OPENOB LABEL AT BASE OF LINE DATA PATTERN ENC TABLE. 

6066 <• OPLENB LABEl AT BAS^ OF LINE DATA PATTERN LENGTH TABLE. 

6067 t* EXCNTB LABEL AT BASE ADDRESS OF EXTRA CHAR COUNTERS TABLE. 
6069 I* lESTAT PRESENT STATE OF THE RX.IE AND TX.IE BITS. 

606<) i* NUMLNS - EQUATED TO NUPBER OF LINES ON THE DOT. 

e070 I* RXCNTB LABEL AT BASE ADDRESS OF RX CHARACTER COUNTERS TABLt. 

60"'l t* RXPTR6 LABLE AT BASE ADR OF "NEXT RX CHAR" POINTERS TABLE. 

607^ »• TXCNTB LABEL AT BASE ADDRESS OF TX CHARACTER COUNTERS TABLE. 

6073 J* TXPTRB LABEL AT BASE AOP OF 'NEXT TX CHAR' POINTERS TABLE. 

6074 i* CBB - LABEL AT BASE OF TX/RX CONTROL BLOCK. 

6075 !• CB CONTENTS TX/RX CONTROL BLOCK CONTAINS THE FOLLOWING: 

6076 J* CBLPRA - DUT LPft CONTENTS. 

6077 f CBLNCA OUf LNCTRL CONTENTS. 

6078 i* CBOPAA • ADDRESS OF BEGINNING OF DATA PATTERN. 

6079 I* CBOPLA - LENGTH IN BriES OF DATA PATTERN. 
60e0 t* CBOPNA NUMBER OF DATA PATTERNS '0 TRANSMIT. 

6051 I* CBMAPA - BIT MAP OF LINES TO BE INITIALI7ED. 

6002 CBLP8A TYPE OF LOOPBACK TO BE USED FOR TESf. 

6003 :« CBOFSA AMOUNT TO OFFSET EACH Tx START IN THE DAI A PAT. 

6004 :* rxRXLB LABEL AT BASE OF TX/RX LINE ASSOCIATION TABLE. 

6005 :* 

6006 ;* OUTPUTS: CHCNT TABLE OF NUMBER OF LINE TX CHARACTERS (INITIAl IZED). 

6007 ,« CHRTOT - MAXIMUM NUMBER OF CHARS TO RECEIVE (2 * PAT LENGTH). 
6OO0 i* OPEND - "^ABLE OF DATA PATTERN ENDS (INITIALIZED). 

6009 i* DPLEN - TABLE OF DATA PATTERN LENGTHS (INITIALIZED). 

609C OUT LNCTRL - LINE CONTROL REGISTERS (INITIALIZED). 

6091 s* OUT LPR LINE PARAMETER REGISTERS (INITIALIZED). 

6092 ,* EXCNT ■ TABLE OF EXTRA RX CHAR COUNTS (CLRED. SELECTED LINES). 
6099 ,* RXCNT TABLE OF RX CHARACTER COUNTS (CLREO. SELECTED LINES). 

6094 i* RXDONF "RECEPTION DONE" FLAGS (CLEARED FOR SELECTED LINES). 

6095 RXPTR • TABLE OF RECEIVE POINTERS (INITIALIZED). 

6096 TXCNT TABLE OF TX CHARACTER COUNTERS (CLREO. SELECTED LINES). 

6097 ,* TXDONF "TRANSMISSION DONE" FLAGS (CLREO FOR SELECTED LINES). 
6090 s* TXPTR - TABLE OF TRANSMIT POINTERS (INITIALIZED). 

6099 I* TXRXL • TX/RX LINE ASSOCIATION TABLE (INITIALIZED). 

6100 :* 

6101 t* CALLING SEQUENCE: JSR PC. TXRINI 

6102 t* 

6105 t* COMMENTS: IF THE CALCULATION OF THE CHRTOT VALUE (2 TIMES THE DATA 

6104 i* PATTERN LENGTH) RESULTS IN A NUMBER GREATER THAN 64K THEN 

6105 I* CHRTOT IS INITIALIZED TO 64K I. 

6106 s* THIS ROUTINE WILL NOT FORCE INTERNAL LOOPBACK BASED ON THE 

6107 I* LOOPBACK TYPE IN CBLPBA. THE USER MUST SET UP CBtNCA CORRfCTi » 
6100 I* TO GET INTERNAL lOOPBACK. 

6109 i* 

6110 SUBORDINATE ROUTINES CALLED: WTUL NC.UTUI PR. 

6J11 , ••«•*••••****••«*••*•••••<•••••••«*««•*•••••*•••••*••»••••*••••••«••••••••• 





025704 
025704 








0045t7 


157414 










»U4 








♦»115 








6116 


025/10 


016705 


155220 


611' 


025714 


016700 


155204 


6116 


025720 


026727 


155212 


6119 


025726 


001002 




6120 


025750 


052700 


000200 


6121 


025754 


004767 


001126 


bl22 


025740 


016700 


155156 


6125 


025744 


00476 7 


001146 


6124 


025 "50 


004767 


177454 


6125 








6126 








6127 








6126 


025754 


005004 




6129 


025756 


016705 


155144 


61S0 


025762 


016705 


155142 


61S1 


025766 


060503 




61S2 


025770 


056467 


002364 


61SS 


025776 


001452 




61S4 








6135 








61S6 








6137 








6136 








6139 


026000 


016701 


155124 


6140 


026004 


016702 


155122 


6141 


026010 


004767 


175424 


6142 


026014 


010164 


005442 


6143 


026020 


060167 


154452 


6144 


026024 


10340S 




6145 


026026 


060167 


154444 


6146 


026052 


103005 




6147 


026034 


012767 


177777 


6146 


026042 






6149 








6150 








6151 








6152 


026042 


016764 


155062 


6153 


026050 


010564 


005142 


6154 








6155 








6156 








6157 


026054 


005064 


005502 


6156 


026060 


010564 


005542 


6159 








6160 








6161 








6162 


026064 


010402 




616S 


026066 


026727 


155044 


6164 


026074 


001005 




6165 


026076 


006202 




6166 


026100 


116202 


005274 


t>l67 


026104 


010264 


005254 



TXRINI:: SAVF 



000001 



154434 



005202 



jSAVE CONTENTS Of GPRS RO THRU Pb. 
JSR A5.PREG05 iCALL REGISTER SAVE SUBRT , 



t S£T IP THE LPR AND LNCTRL REGISTERS AS SPECIFIED IN THE TX/Rx CONTRCX. BLOC/. 

' HOV C8HAPA.R5 jGET THE BIT MAP OF SELECTED LINES. 

10V CBLNCA.RO jGET THE NEW LNCTRL CONTENTS. 

CMP C8LP8A,»l I CHECK IF INTERNAL LOOPBACK HAS BEEN SELECTED. 

BNE 2* jSKIP SETTING INT. LOPBCK IN MAINTENANCE FIELD. 

BIS ♦200.ro iSET internal LOOPBACK IN MAINTENANCE FIELD. 

JSR PC.UTULNC -.SET UP THE LNCTRL REGS FQR SELECTED .INES. 

HOV CBLPRA.RO iGET THE NEW LPR CONTENTS. 

JSR PC.UTULPR iSET UP THE LPR REGISTERS FQR SELECTED LINES. 

JSR PC.TXENBL jENABLE Tx FOR ALL SELECTED LINES. 



2ti 



I » 

; SET 
i - 



155156 4(: 



UP AND BEGIN LOOP WHICH HANDLES ONE LINE PER ITERAIION. 

CLR R4 ; CLEAR THE LINE OFFSET, 

MOV CB0PAA.R5 i INITIALIZE THE TX aTART ADDRESS VAUJE . 

MOV CBOPLA.RS iGET THE LENGTH OF THE DATA PATTERN. 

ADO R5,R5 tCALCULATE END ADDRESS OF THE DATA PATTERN. 

BIT 8ITTBLCR4),C8MAPA ;CHCCK IF THIS LINE IS SELECTED FOR INIT, 

BEQ 12$ jSKiP SET UP IF LINE IS NOT SELECTED. 



; This LINE IS SELECTED FQR INITIALIZATION. 

i SET UP PROPER ENTRY IN NUMBER OF CHARS TO TX AND RX TABLE. 

t INCLUDE CHAR COUNT ON THIS LINE IN MAX ALLOWABLE CHAR TOTAL FOR ALL LINES. 



6»: 
61: 



MOV CBDPLA.Rl 

MOV CB0PNA,R2 

JSR PC.MUL16U 

MOV R1,ChCNTB(R4) 

ADO RI.ChRTOT 

BCS 6» 

ADD RI.CHRTOT 

BCC 3« 

MOV •-I.CMRTOT 



iGET THE LENGTH PF THIS LINE'S DATA PATTERN. 
;GET THE NUMBER OF PATTERNS TO Tx AND RX. 
I CALCULATE THE TOTAL NUMBER OF CHARS TO TX/RX. 
iSET UP THE NUMBER OF TX/RX CHARS FOR LINE. 
I ADO TWICE THE NUMBER OF CHARACTERS TO Tx/Rx 
, ON THIS LINE TO THE TOTAL NUMBER OF CHARS 
i WHICH WE WILL ALLOW TO BE RECEIVED ON 
: ALL LINES. 

, SET MAX CHAR TOTAL TO -1 IF OVERFLOW. 



I • 



J SET UP THE DATA PATTERN END AND LENGTH f OR THIS LINE. 

MOV CB0PLA.DPLENB(R4) (SET UP TX DATA PATTERN LENGTH FOR THIS LINE. 
MOV R5.0PENDB(R4) iSET UP TX DATA PAT END ADDRESS FOR THIS LINE. 



SET UP THE TX COUNTER AND CHARACTER POINTER FOR THIS LINE. 



CLR TXCNTB(R4) 
MOV R5,TXPTRB(R4) 



iCLEAR THE TX COUNTER FOR THIS LINE. 

iSET UP THE TX CHAR POINTER FOR THIS LINE. 



; SET UP THE TX/RX LINE ASSOCIATION OFFSET ^ABLE ENTRY FOR THIS LINE. 
I 



000002 



101: 



MOV R4,R2 

CMP ':blpba.#2 

BNE lot 

ASR R2 

MOVB STGTR8(R2).R2 

MOV R2.rxRXLBCR4) 



iSELECT LINE OFFSET FOR NON-STAGGERED LP8K . 
I TEST FOR STAGGERED LOOPBACK. 
iSKIP SETTING STAGGERED LPBK IF NO'. 
,FORM BtTE OFFSET INTO TABLE FROM TX LINE «. 
(GET THE RX LINE CORRESPONDING WITH TX LINE. 
tLOAO Tx TABLE £NTR» WITH RX LINE OFFSET. 
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61 ro 

6171 
61 7^ 
6173 
6174 
6175 
6176 
6177 
6170 
6179 
6180 
6161 
6192 
6103 
6104 
6105 
6106 
6107 
6180 
6109 
6190 
6191 
6192 
6195 
6194 

6195 



026110 
026114 
026120 



026124 
026150 
026132 
026134 
026140 



026142 
026144 



026146 
026152 

026154 
026154 
026156 



005062 
005062 
010562 



066705 
020503 
103403 
166705 
000773 



005204 
005204 



020427 
002706 



004736 
000207 



003542 
003242 
003402 



155010 
154770 



000040 



t "itT UP THE RX COUNTERS AND CHARACTER POINTER FOR THE RX LINE WHICH 
I IS ASSOCIATED UITH THIS TX LINE. 

* CLR RXCNTB(R2) i CLEAR THE RX COUNTER TOR tmIS Rx LINE. 

CLR EXCNT8(R2) iCLEAR THE EXTRA CHAR COUNTER FOR THIS RX LINE. 

hOV R5.RXPTReCR2^ iSET UP THE RX CHAR POINTER FOR THIS RX LINE. 

lOPOAft THfe TX SI ART POINTER IN PREPARATION FOR THE NEXT LINE. 

12$!' AOO CeOFSA.RS jAOD THE TX OFFSET TO THE TX START POINTER. 

14«: CHP R5.R5 sCOMPARE TX STAR! WITH END OF OATA PATTERN. 

BLO 16$ jSKlo WRAPAROUND IF START IS BEFORE PAT END. 

SUB CB0PLA.R5 jSUBTRACT DATA PATTERN LENGTH FROM START. 

BR 14 » sLOOP UNTIL START IS WITHIN OATA PATTERN. 

j 'update THE TX LINE NUMBER OFFS^^T TO THE NEXT LINE. 

16» ! ' INC R4 
INC R4 

I'tEST for done HANDLING ALL POSSIBLE LINES ON THE DEVICE. 

* CMP R4.*NUMLNS»2 :COMPARE OFFSET WITH 2 TIMES MAX 0 OF LTNES. 
BLT 4» sLOOP IF NOT ALL LINES DONE. 



60t: 



PASS 
RTS 



PC 



; RES TORE GPRS, 
JSR PC.aCSP"). 



;RETURN TO PREG05 S'.«RT. 



OHU 11 K»<C rST PAAT4 



6^00 
^201 
6202 
620$ 
6204 
6205 
6?0h 
6207 
620B 
6209 
6210 
6211 
6212 
6215 
6214 
62li» 
6216 
6217 
6216 
6219 



6220 



6221 



6222 
6225 
6224 
6225 

€226 



026160 
026160 
026164 
026164 
026166 
026172 
026172 
026176 
026200 
026204 
026210 
026214 
026214 
026216 



104440 
0100^7 

012700 
104441 
012705 
004767 
010567 

004736 
000207 



I- 13 



HACRO Ml?00 15 MAR 0« 09:48 PAGE 1^0 
TxROFr - 



'.FQ 1*; 



004567 157140 



IS4056 

000500 

177777 
177124 
154056 



.SeTTL GLOBAL SOBROUTINE 



TXRQPF 



TURN TX AND RX OTP RQUTTNE 
THIS SUBROUTINE IS USED TO TURN OFF OUT TRANSMISSION AND RECEPTION. 
THIS ROUTINE ACHIEVES THIS BT BOOSTING PROCESSOR PRIORITY TO S TO 
AVOID RX INTERRUPTS AND BY CLEARING ALL THE OUT Tx. ENABLE BITS tq 
MALT TX (EIT^CR DMA OR SINGLE CHARACTER TX). THE STATES OF Tmf 
TX. ENABLE BITS AND THE PROCESSOR PRIORITY ARE SAVED FOR RESTORATION 
UHEN TX AND RX ARE RE -ENABLED. 



INPUTS: 
OUTPUTS: 



MAPLNS - BIT MAP OF ALL POSSIBLE LINES ON THE OUT. 



SAVPRI 
SAVTEN 



SAVED PROCESSOR PRIORITY. 

BIT MAP OF TX.ENBL BITS (BIT SETIF TX.ENBL WAS SET), 



CALLING SEQUENCE; 



JSR 



PC.TXROPF 



COMMENTS: 

SUBORDINATE ROUTINES CALLED: TXOSBL. 



TXROFF:: SAVE 



60»: 



GETPRI SAVPRI 



SETPRI «PRI06 



MOV 

JSR 

MOV 
PASS 

RTS 



J SAVE CONTENTS DT GPRS RO THRU R5, 
JSR R5.PREG05 iCALL REGISTER SAVE SUBRT 

{GET THE PRESENT PROCESSOR PRIORITY. 

TRAP 
MOV 

;DISABLE DUT INTERRUPTS. 

MOV 
TRAP 

•MAPLNS. R5 iPREPARE TO DISABLE TX ON ALL OUT LINES. 

PC.TXDSBL J CLEAR ALL OUT TX. ENABLE BITS. 

R5. SAVTEN iPRESERVE THE PREVIOUS TX. ENABLE BIT STATES. 

jRESTORt GPRS. 

JSR PC.a(SP)» iRETURN TO PREG05 SUBRT. 

PC 



C»GPRI 
RO. SAVPRI 

«PR106.flO 
C»SPRI 



G i 5 



QMU 11 fONC TST PAAT4 
Si 0BA4. SiipOuflHl 



MACRO **1^0^„p^ ^VW 04 09:46 



PAGE lil 



6230 
6^51 

«299 
6234 
t>235 
6236 
6237 
6239 
6239 
6240 
6241 
6242 
6243 
6244 
6245 
6246 
6247 
6240 

6249 
6250 
6251 



6252 
6253 



026220 
026220 
026224 
026250 
026254 
026254 
026240 
026242 
026242 
026244 



004567 
016705 
004767 

016700 
104441 

004756 
000207 



157100 
154022 
177174 

154010 



.SBTTi OLOBM. SUBROUTINE 



TXRON 



TURN TX AM) RX ON ROUTINE - 
THIS SUBROUTINE IS USED TO TURN ON OUT TRANSMISSION AND RECEPTION. 
THIS ROUTINE RESTORES THE DUT TX. ENABLE BITS AND THE PROCESSOR PRIORITr 
TO THE STATES SAVED BY THE TXROFF ROUTINE. 



t* 
I* 
I* 
»• 
»* 

* 

J* 

;* 

J* 
:* 
t* 
* 
* 



I>#>UTS: 
OUTPUTS- 



SAVPRI - SAVED PROCESSOR PRIORITY. 

SAVTEN BIT HAP Of TX.ENBL BITS (BIT SETIF TX.ENBL MAS SET). 

OUT TX. ENABLE BITS SET TO SPECIFIED STATES. 
PROCESSOR PRIORITY SET TO SPECIFIED PRIORITY. 



JSR 



PC . TXRON 



CALLING SEQUENCE: 
COMMENTS: 

SUBORDINATE ROUTINES CALLbD: TXENBL. 



TXRON: : SAVE 

MOV 
JSR 
SETPRI 



60tj 



PASS 
RTS 



;SAVE CONTENTS OF GPRS RO ThWU R5. 
JSR R5.PREG05 ;CALL REGISTER SAVE SU8RT. 

SAVTEN. R5 sGET THE SAvEO STATES OF THE Tx. ENABLE BITS. 

PC. TXENBL {SET THE SPECIFIED TX. ENABLE BITS. 

SAVPRI {RESTORE THE PROCESSOR PRIORITY. 

MOV SAVPRI.RO 
TRAP CtSPRI 

{RESTORE GPRS, 

JSR PC.8(SP)» {RETURN TO PREG05 SUBRT. 

PC 









6J56 






6J5' 
























6261 






b262 






6269 






6264 






6267 






6266 






6267 






6269 






6269 












62 '1 






62 '2 






^2 '9 






o« 






A^7A 

6275 






A 7A 

6276 






7 T 

62 7 1 






62 70 






^^7a 
6279 






6290 






6201 






6202 






6209 






6<04 






6203 






6206 






^9A7 

6cO 7 


026246 






026240 


00436 7 


QcOO 


U20e3c 


vOdOVS 


62o'» 


Uc6c34 


A 1 7 AA 




U26260 


016 703 




U2e26« 


e\f\A 7iL 7 








6c T 5 


0262 70 


A V O 7A 7 

032 767 


6eW 


0262 76 


AA1 AAV 
0OIOO3 




0263U0 


A A< 7^ 7 

003 76 7 


D2vO 


026904 


AA1 A9A 


6«T 1 








U203U0 


AA*lOA7 


Oc ▼ » 


vcool.2 


AAA7J^7 












use rO f 






AA1 AAV 




U20J20 


AAi\7A.7 
V03 f O r 






OOl Oil 


6 SOS 






6S06 


026554 


005267 


6S07 


026540 


004767 


6508 


026344 


004767 


6509 


026550 


010467 


6S10 
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•14CII0 **i'''<>y»p^p"'*" »4 09:48 P<»GE 112 
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* 
t 



i 
t 



i 
i 



TXRREP:: SAVE 
157052 JSR 



157056 
155706 
175540 






ROR 
MOtf 
MOV 
JSR 


R3 

ERRNBR.R4 
ACTLNS.R5 
PC.RDMAST 


000 100 
155720 


155664 




BIT 
BNE 

TST 
BNE 


♦BIT06.GPTI0N 
2* 

TERROR 
60$ 


157004 
175720 




2*: 


INC 
JSR 


ERRN6R 
PC.RTXNDN 


000100 
155672 


155636 




BIT 
BNE 

TST 
BNE 


«eiT06.0PTI0N 
4» 

FERROfl 
60 » 


156756 
171056 
175620 
156742 




41: 


INC 
JSR 
JSR 

MOV 


ERRNBR 
PC.CONMAP 
PC.RRXNDN 
R4 . ERRNBR 



- TXRREP - 



J SAVE CONTENTS OF GPRS RO THRU R5. 
R5.PREG05 :CALL REGISTER SAVE SUBRT. 

:ROTATE CARRY INTO GPR TO SAVE CARRY STATE. 
:SAVE THE INITIAL ERROR NUMBER VALUE. 
sGEf THE ACTIVE LINES BIT MAP. 
, REPORT ANY DMA. START BIT ERRORS. 

(HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 

;VES. THEN BRANCH. 

iHAS AN ERROR BEEN DETECTED ? 

i BRANCH AND EXIT IF IT HAS. 

J SELECT INTIAL ERROR NUMBER » 1. 

, REPORT TX NOT COMPLETE IF NECESSARY. 

.-HAS EXTENDED ERROR REPORTING BEEN REOtJESTtD ? 

I YES. THEN BRANCH. 

(HAS AN ERROR BEEN DETECTED ? 

;6RANCH AND EXIT IF IT HAS. 

s SELECT INITIAL ERROR NUMBER • 2. 
sGENERATE AN ASSOCIATED LINE BIT MAP. 
jREPORT RX NOT COMPLETE IF NECESSARY. 
iRESTORE THE INITIAL ERROR NUMBER VALUE. 



- REPORT FIliML TX/RX ERRORS ROUTINE - 
THIS SUBROUTINE REPORTS ERRORS UHICH ARE FOUND AFTER THE COMPLETION 
OF T»C TX. RX. AM) VERIFICATION OF DATA PATTERNS. IT REPORTS ERRORS 
DEALING WITH INCOMPLETE TX OR RX AND WITH OMA.START BITS. 



INPUTS: 



OUTPUTS: 



ACTLNS - BIT MAP OF ACTIVE OUT LINES. 

DPLENB LABEL AT BASE OF THE DATA PATTERN LENGTHS TABLE. 
ERRMSG ADDRESS OF PRIMARY ERROR MESSAGE FOR THIS ROUTINE. 
ERRNBR ERROR NUMBER OF ERROR REPORTED IN THIS ROUTINE. 
RXCNTB LABEL AT BASE OF THE RX CHARACTER COUNTERS TABLE. 

RXOONF - RECEPTION DONE FLAGS. 

TXCNTB - LABEL AT BASE OF THE TX CHARACTER COUNTERS TABLE. 

TXOONF - TRANSMISSION OWE FLAGS. 

TXINTF CONTAINS BIT MAP OF LINES WITH OMA.START BIT ERRORS. 

CARRY FLAG - RESTORED TO ITS ENTERING VALUE. 

ERRBLK ADDRESS OF THE ERROR REPORTING ROUTINE (DESTROlEO). 

MESSAGES MAY BE PRINTED AT THE OPERATOR CONSOLE. 



CALLING SEQUENCE 
COMMENTS: 



JSR 



PC. TXRREP 



THIS ROUTINE REPORTS ERRORS AT INITIAL ERRNBR THRU 
INITIAL ERRMBR.2. 

IF NO LINES FAILED TO COMPLETE THEIR RECEPTION OR FAILED TO 
COMPLETE THEIR TRANSMISSION OR MAO OMA.START BIT ERRORS 
THEN NO MESSAGES ARE PRINTED. 



SUBORDINATE ROUTINES CALLED: CONMAP .ER9005,ER9102.R0MAST .RRXNON.RTXNON. 



Jlii ol6ll6 ^ JOL R5 'S9I?J1, SAVED CARRY STATE BACK INTO CAKRy 
, . 026336 004756 ^ ' ^"^^ ..p A?^|J9S^ ^^^^ ROJTINE PRESERVES THE 
651S 026360 000207 rIS pr ''SP PC.aCSPV .RETURN TO PREG05 SUBRT. 



INITIAL CARRt STATE, 



J 1. 



OMU II TUNC ISl P*«T4 



HACRO mZOO 15 nM 64 09:40 

UNSOIV 



PAGE lij 



"^0 16^ 



b5t5 








6S16 








6Jt7 








6319 








6319 








6320 








6321 








6322 








6323 








6324 








6325 








6326 








6327 








6320 








6329 








6330 








6331 








6332 








6335 








6334 








6335 








6336 








6337 








6338 


026362 








026362 


004567 


156736 


6339 








6340 








6341 








6342 


026366 


010204 




6343 


026370 


160104 




6344 


026372 


105405 




6345 


026374 


012701 


177777 


6346 


026400 


000442 




6347 








6340 








6349 








6350 


026402 


005004 




6351 


026404 


000241 




6352 


026406 


006001 




6353 


026410 


006004 




6354 


026412 


012700 


000020 


6355 








6356 








6357 








6350 


026416 


010246 




6359 


026420 


010346 




6560 


026422 


160403 




6361 


026424 


005602 




6562 


026426 


105402 




6563 


026450 


160102 




6364 


026452 


105005 




6563 








6566 








6567 








6568 








6569 


026454 


012605 




6S70 


026456 


012602 





.SBTTt GLOBAL SUBROUTINE 



UNSDIV - 



!* - UNSIGNED DIVIDE ROOTINE • 

!* THIS SUBRaJTINE IS USED TO DIVIDE A 52 BIT UNSIGNED DIVIDEND Br A 

(• 16 BIT UNSIGNED DIVISOR GIVING A 16 BIT QUOTIENT. ALL NOHBERS ARE 

CONSIDERED TO BE UNSIGNED. A SUCCESS FLAG IS NOT SET ON RETURN IF 
THE QUOTIENT WAS TOO BIG TO B? CONTAINED IN 16 BITS. 



!• IW»UTS: 

I* 

[• 

i* 

I* OUTPUTS: 



Rl THE DIVISOR. UNSIGNED. 16 BITS. 

R2 - MOST SIGNIFICANT WORD OT THE DIVIDEND. UNSIGNED. 16 BITS. 
R3 - LEAST SIGNIFICANT WORD OF THE DIVIDEND. UNSIGNED. 16 BITS. 

Rl - QUOTIENT. UNSIGNED. 16 BITS (177777 IF OVERFLOU). 

CARRY ■ SUCCESS FLAG. SET IF COMPLETE QUOTIENT FITS IN 16 BITS. 



CALLING SEQUENCE: 



JSR 



PC. UNSDIV 



IF THE DIVISOR IS 0 THE QUOTIENT IS RETURNED AS ALL ONES 
C177777) AND THE CARRY IS CLEAR REGARDLESS OF THE OIVIOENO. 



• COMMENTS: 
* 
* 

* SUBORDINATE ROUTINES CALLED; NONE 



UNSDIV:: SAVE 



;SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 jCALL REGISTER SAVE SUBRT. 



t CHECK FOR QUOTIENT GREATER THAN 16 BITS CONDITION. 



MOV 
SUB 
BCS 
MOV 
BR 



R2.R4 
R1.R4 
2» 

• l.Rl 
60 » 



iGET MSW OF DIVIDEND FOR SUBTRACT. 

(SUBTRACT DIVISOR FROM MSW OF DIVIDEND. 

iIF IT DIDN'T GO. WE HAVE QUOTIENT < 16 BITS. 

tSET QUOTIENT TO ALL ONES (177777), 

(EXIT WITH CARRr CLEAR. 



TsET UP COUNTERS AND VARIOUS WORKING GPRS. 

21: CLR R4 j CLEAR THE LSW OF THE DIVISOR. 

CLC J CLEAR CARRT FOR THE SHIFT OF THE DIVISOR. 

ROR Rl : DIVISOR BY 

ROR R4 : 2( ^SIGNED) 

MOV •16,. RO jSET UP INITIAL SHIFT COUNT TO 16. 



J THE SUBTRACT AMD SHIFT LOOP. 



t - 
41: 



MOV 
MOV 
SUB 
SBC 
BCS 
SUB 
BCC 



R2. (SP) 

R5. CSP) 

R4.R5 

R2 

6» 

R1.R2 
0( 



(SAVE MSWORO OF DIVIDEND. 

;SAVE '.SWORD OF DIVIDEND. 

tLSUORD DIVIDEND ■ tSWORO OF DIVISOR. 

tMSWORD DIVIDEND • BORROW . 

(IF BORROW FROM BORROW SUBTRACT. IT DION' 

I MSWORO DIVIDEND - MSWORD OF DIVISOR. 

;rF NO BORROW, IT WENT, CARR> IS CLEAR. 



T GU. 



6<: 



!*IT OIONT GO. SO WE SHIFT A 1 INTO THE QUOTIENT (COMPLEMENTED LATER), 
t CARRY IS SET. 

' MOV (SP)*.R5 (RESTORE LSWORD OF DIVIDEND. 

MOV (SP)». R2 (RESTORE MSWORO OF DIVIDEND. 



I<ii> 



QHt; 11 »UNC TbT P«»T4 



6571 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 
63«0 
6361 
6302 
6363 
6384 
6385 
6386 
6387 
6388 
6389 
6390 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6396 
6399 
6400 
6401 
6402 
6403 
6404 
6405 
6406 
6407 



6406 
6409 



026440 000401 



026442 012626 



026444 
026446 
026450 
026452 
026454 
026456 
026460 



026462 
026464 
026466 
026470 
026472 



026474 
026476 
026500 



026502 
026504 

026506 
026506 
026512 



006105 
000241 
006001 
006004 
005300 
001357 
005105 



000241 
006103 
103402 
160403 
103403 



005205 
001001 
005305 



010501 
000261 



BR 



P/ICE liS I 



10$ 



SEQ I'A. 



:GOTO SHIFT I INTO THE QOOTIENT. 



I*IT MENT. SO UE RESTORE THE STACK AND SHIFT A 0 INTO QUOTIENT (WILL BE 
I COMPLEMENTEO LATER). CARRY IS CLEAR. 

* MOV CSP)».CSP)» -.POP THE SAVED DIVIDEND OFF OF THE STACK. 



SHIFT THE RESULT OF THE SUBTRACT ATTEHPT INTO THE QUOTIENT SHIFT REG. 



10>: 



i - 



ROL 
CLC 
ROR 
ROR 
DEC 
BNE 
COM 



R5 

Rl 
R4 
RO 
4* 
R5 



SHIFT NEXT BIT INTO THE INVERTED QUOTIENT. 
DIVIDE THE 

DEVISOR BY 

2 (UNSIGNED), 
COUNT THIS SHIFT ANO SUBTRACT. 
LOOP FOR ANOTHER SHIFT £ SUB IF NOT DONE. 
GET QUOTIENT FROM INVERTED QUOTTENT. 



NOW UE EITHER ROUND UP OR LEAVE QUOTIENT ALONE. 



CLC 
ROL 
8CS 
SUB 
BCS 



R3 
12 ( 
R4.R3 
14$ 



ROUND UP. EXTRA SUBTRACT WENT. 
12$: 



INC 
BNE 
DEC 



R5 
14$ 
R5 



CLFAR THE CARRY FOR THE SHil- T 0^ THE OrvIDENO. 
MULTIPLY LSUORO OF DIVIDEND BY 2. MSUORD 1? 0. 
IF CARRY FROM SHIFT. ROUND UP. 
SUBTRACT DIVISOR FROM DIVIDEND. 
IF BORROW. DON'T ROUND UP. 



; INCREMENT THE QUOTIENT BY ONE. 

sIF NO OVERFLOW. WE LEAVE THE ROUND UP. 

tOON'T LET ROUNDING CAUSE OVERFLOW. 



[all done, pass QUOTIENT AND EXIT. 

s - 

14$; 



010166 000004 
004736 



60$: 



026514 000207 



MOV 
SEC 

PASS 



RTS 



R5.R1 :PASS QUOTIENT BACK IN Rl. 

{INDICATE NO OVERFLOW. 

Rl {RESTORE GPRS, LEAVE THE FOLLOWING INTACT: 

MOV Rl.RlSLOT(SP) |PUT Rl IN STACK SLOT. 

JSR PC.O(SP)» I RETURN TO PREG05 SUBRT. 

{Rl 16 BIT. UNSIGNED QUOTIENT. 

PC ; CARRY - SET INDICATES NO OVERFLOW (SUCCESS). 
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6411 
6412 
641S 
6414 
6415 
6416 
6417 
6419 
6419 
6420 
6421 
6422 
642$ 
6424 
6425 
6426 
6427 
6420 
6429 
6450 
6431 
64 S2 
64 5S 
6454 
6455 
6456 
6457 
6430 
6439 
6440 
6441 

6442 
6443 
6444 
6445 
6446 
6447 
6448 
6449 
6450 
6451 
6452 
6455 
6454 
6455 
6456 
6457 
6450 
6459 
6460 
6461 
6462 
6463 
6464 
6465 
6466 



026516 
026516 
026522 



026526 
026532 
026534 
026540 
026542 
026546 



026552 
026556 
026560 
026562 
026566 



026572 
026576 
026600 



004567 
016302 



016301 
005201 
020162 
103402 
166201 
010163 



016301 
005201 
001002 
012701 
010163 



016204 
020104 
103403 



156602 
005234 



003402 

005142 

003202 
003402 

003542 



177777 
003542 



003442 



.SeTTL GLOBAL SUBROUTINE 



UPDCHR 



J ♦ 

;* 
J* 
}• 
;* 

;* 

!* 

s» 
i* 

!* 

;* 



- UPDATE CHARACTER POINTERS AND COUNTERS ROUTINE - 
THIS SUBROUTINE UPDATES THE POINTERS AND COUNTERS ASSOCIATED WITH 
THE RECEPTION OF A CHARACTER ON A SPECIFIED LINE. THE RECEIVE CHAR 
POINTER IS SET TO THE NEXT EXPECTED CHARACTER. THE RECEIVE CHAR COUNT 
IS INCREMENTED. AND THE COUNT IS CHECKED TO DETERMINE IF THE RECEPTION 
IS COMPLETE. IF THE RECEPTION IS COMPLETE THE RECEPTION DONE FLAG 
IS SET FOR THE SPECIFIED LINE. 

INPUTS: R3 - LINE NUMBER TIMES 2 OF LINE ON WHICH CHAR WAS RECEIVED. 

BITTBL LABEL OF TABLE OF WORDS USED TO FORM SINGLE BIT MAPS. 

CHCNTB - BASE OF NUMBER OF CHARS TO TX ON EACH LINE TABLE. 

OPENDB BASE OF DATA PATTERN END ADDRESSES TABLE. 

DPLENB BASE OF DATA PATTERN LENGTHS TABLE. 

RXCNTB BASE OF THE RX CHARACTER COUNTERS TABLE. 

RXPTRB BASE OF THE RX CHARACTER POINTERS TABLE. 

TXRXLB - BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 

OUTPUTS: FOLLOWING VARIABLES UPDATED FOR LINE ON WHICH CHAR WAS RECEIVED: 
RXCNT COUNT OF THE NUMBER Of CHARACTERS RECEIVED ON LINF. 
RXDONF - RX DONE FLAGS WITH BITO FOR LINE 0 ... (UPDATED). 
RXPTR UPDATED TO POINT TO THE NEXT EXPECTED CHAR ON LINE. 



CALLING SEQUENCE; 
COMMENTS: 



JSR 



PC. UPDCHR 



;* SUBORDINATE ROUTINES CALLED: NONE. 



UPDCHR:: SAVE 
MOV 



JSR 

TXRXLB(R3).R2 



iSAVE CONTENTS OF GPRS RO THRU R5. 
R5.PREG0S {CALL REGISTER SAVE SUBRT. 

jGET TX LINE NUMBER OFFSET F0i< THIS RX LINE. 



UPDATE THE RX DATA POINTER WITH WRAPAROUND AT THE END OF THE DATA PATTERN. 



> - 



2t. 
I * 



MOV RXPTR8(R3).R1 

INC Rl 

CMP R1.0PEHD6(R2) 

BLO 2( 

SUB 0PLENB(R2).R1 

MOV R1.RXPTRB(R3) 



:GET THE RX DATA POINTER FROM THE RX PTR TABLE. 
(INCREMENT THE RX POINTER VALUE BY 1. 
iCMP RX PTR VALUE WITH ADR OF END OF DATA PAT. 
iSKIP WRAPPING RX PTR AROUND IF NOT AT END. 
I WRAP RX PTR AROUND TO START OF DATA PATTERN. 
lUPOATE THE RX POINTER WITH THE NEW VALUE. 



UPDATE THE RX CHARACTER COUNT WITH OVERFLOW DETECTION. 



I - 



4»; 



MOV RXCNTB(R3).R1 

INC Rl 

BNE 4» 

MOV #-l.Rl 

MOV R1,RXCNTB(R3) 



iGET THE RX CHARACTER COUNT. 
(INCREMENT THE RX CHAR COUNT VALUE BY 1. 
(SKIP SETTING COUNT TO MAX IF NO OVERFLOW. 
(SET RX CHAR COUNT VALUE TO MAX VALUE. 
(UPDATE THE RX CHAR COUNT WITH NEW VALUE. 



J CHECK FOR RX COMPLETION ON THIS LINE. 

t IF RX IS COMPLETE ON THIS LINE. SET THE CORRECT RX DONE FLAG. 
I - 



MOV CMCNTB(R2).R4 
CMP R1.R4 
BLO 60$ 



(GET THE NUMBER OF TX CHARS IN COMPLETE TX. 
{COMPARE RX CHAR COUNT WITH NUMBER OF TX CHARS. 
{EXIT ROUTINE IF NOT ALL CHARS RECEIVED. 



hl3 



6467 026602 056367 002564 1S3674 BIS BITTBL(R3).RXD0NF -.SET THE RX DONE FLAG FOR THIS LINE. 

6468 

6469 026610 60«: PASS {RESTORE GPRS. 

026610 004756 JSR PC.a(SP)» ; RETURN TO PREGOS SUBRT , 

6470 026612 000207 RTS PC 
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64 72 
6475 
64 74 
64 75 
64 76 
6477 
6478 
6479 
6480 
6481 
6482 
6483 
6484 
6485 
6486 
6487 
6488 
6489 
6490 
6491 
6492 
6493 
6494 
6495 
6496 
6497 
6498 
6499 
6500 
6501 
6502 
6503 
6504 
6505 
6506 
6507 

6508 
6509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 



.SBTTL GLOBAL SUBROUTINE 



- VANoUP 



026614 
026614 
026620 
026624 
026630 
026634 



026640 
026644 
026650 
026652 
026654 
026660 
026662 
026664 
026666 
026672 
026700 
026702 
026706 



TRANSMISSION / RECEPTION SET UP ROl'TINE 

THIS ROUTINE IS USED TO INITIALISE BOTH THE OUT AND THE 
TRANSMISSION/RECEPTION CONTROL PARAMETERS TO THE CORRECT 
STATE. PRIOR 10 A SINGLE CHARACTER OR DMA TRANMISSION, 
RECEPTION TEST. 

INPUTS: Rl TX. RX LPR CONTENTS. 

R2 START ADDRESS OF DATA PATTERN TO TRANSMIT. 

R5 LENGTH OF DATA PATTERN, 

R4 - NUMBER OF PATTERNS TO TRANSMIT. 

ACTLNS - CONTAINS A BIT MAP OF ALL CURRENTLY ACTIVE LINES. 
LOPBCK - CONTAINS THE TYPE OF I.OOPBACK MODF SELECTED. 
CBB - LABEL AT BASE OF TX/RX CONTROL BLOCK. 

OUTPUTS: THE CONTENTS OF THE TX/RX CONTROL BLOCK CCCB) ARE DESTROYED. 

THE INDIRECT ADDRESS FIELD OF THE OUT CSR MAY BE DESTROYED. 

THE OUT'S LPR'S AND LNC S MAY BE MODIFIED. 

THE FOLLOWING POINTERS AND COUNTERS ARE INITIALISED; 

CHCNT . CHRTOT . DPENO . DPLEN . EXCNT . RXCNT , RXPTR , TXCNT . 

TXPTR.TXRXL. 

CHRTOT, RXDONF. TXOONF AND TXINTF ARE CLEARED. 



CALLING SEQUENCE: 



JSR 



PC . VANSUP 



COMMENTS: MODEM LOOPBACK MODE IS INHIBITED IF IT HAS BEEN SELECTED 

VIA HARDWARE P-TABLE QUESTIONS, AND INTERNAL LOOPBACK MODE 
IS FORCED TO TAKE PLACE. 

SUBORDINATE ROUTINES CALLED: CONMAP.RXENBL . TXRINI . 

. *«««4i«*«*«*««*******4i4i*«4i*4>**«**«*«4>****«**«* ********************** ******** 



004567 
005067 
005067 
005067 
005067 



010167 
012701 
005201 
005201 
012721 
010221 
010321 
010421 
016721 
032767 
001404 
012702 
110221 



156504 
153652 
153434 
153646 
153644 



154256 
003122 



000004 



153300 
000004 

000001 



VANSUP:: SAVE 

CLR 
CLR 
CLR 
CLR 



tSAVE CONTENTS OF THE GPR' S RO THRU R5. 
JSR RS.PREGOS jCALL REGISTER SAVE SUBRT . 

CHRTOT -.CLEAR TOTAL RECEIVED CHAR COUNTER. 

TXINTF ; CLEAR FLAGS USED TO LOG DMA H.OVER ERRORS. 

TXDONF J CLEAR THE TX DONE FLAGS. 

RXDONf' t CLEAR THE RX DONE FLAGS. 



I ♦ 



SET UP THE TRANSMISSION/RECEPTION CONTROL BLOCK TO THE DESIRED STATE. 



1532 74 



MOV Rl.CBB 

MOV OCBB.Rl 

INC Rl 

INC Rl 

MOV #4.(R1). 

MOV R2.CR1)* 

MOV RS.CRD* 

MOV R4.(R1)* 

MOV ACTLNS. CR1)» 

BIT #aiT2. LOPBCK 

BEQ 2» 

MOV 01. R2 

MOVB R2.(R1)* 



-.SET CONTENTS OF LPR PARAMS IN TX/RX C.BLK. 

;GET BASE ADDRESS OF CONTROL BLOCK. 

J INCREMENT ADDRESS FOR NEXT WORD 

! INITIALISE THE FOLLOWING IN THE CNTRL.BLK: 

t LNCTRL PARAMETER, ENABLE RECEIVERS. 

; START ADDRESS OF DATA PATTERN. 

J DATA PATTERN LENGTH. 

: NUMBER Of DATA PATTERNS TO TRANSMIT. 
5 BIT MAP OF LINES TO INITIALISE. 

TEST IF MODEM LOOPBACK MODE HAS BEEN SELECTED. 

DO^^T SELECT INTERNL LOPBCK IF STACRO OR LOCAL. 

FORCE INTERNAL LOOPBACK MODE TO BE SELECTED. 

INITIALISE LOOPBACK MODE IN CONTROL BLOCK. 
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6526 


026710 


000402 






026712 


116721 


155256 


6530 


02*716 


005201 




6591 


026720 


012711 


ooooaz 


6552 








6593 








6534 








6535 








6536 
655' 


026724 


004767 


176754 








6550 








655^ 








6540 


026730 


012701 


177777 


6541 


026734 


016702 


155232 


6542 


026740 


005101 




6543 


026742 


005102 




6544 


026744 


040102 




6545 


026746 


010267 


154162 


6546 


026752 


005067 


154154 


6547 


026756 


004767 


176722 


6540 








6549 








6550 








6551 








6552 


026 762 


012705 


177777 


6553 


026766 


004767 


175512 


6554 








6555 








65S6 








6557 


026772 


016705 


155174 


6550 


026776 


004 767 


170400 


6559 


027002 


004 767 


175572 


6560 


027006 
027006 


004 736 






027010 


000207 





BR 4f 

MDVB LOPBCK.(Bl). 

INC Rl 

MOV •2.(Bn 



jSKiP KtXT INSTRUCTION IF IN MOOtM IOOPB«CK. 
I SET LOOPBACK «00€. 

I INCREMENT ftOQRESS FOR THE NEXT WORD. 
jSET AMOUNT or OFFSET EACH TK STARTS AT TO 2, 



2*s 
4«: 

t'lNITIALlSe T»C OUT AND THE ASSOCIATED POINTERS AND COUNTERS. TO TmE STATE 
} DICTATED Bt THE CONTENTS OF THE TX/RX CONTROL BLOCK. 

* JSR PC.TXRINI iINITIALlSE OUT. 
t'iMITIALlSE POINTERS AND COUNTERS FOR INACTIVE LINES TO ZERO. 

* iGET THE LINE BIT MAP FOR All LINES. 

iGET THE ACTIVE LINE BIT M/>P. 



MOV 
MOV 
COM 
COM 
BIC 
MOV 
CLR 
JSR 



•MAPLNS.Rl 
ACTLNS.R2 
Rl 
R2 

Rl.R? 
R2.CBMAPA 
CBDPNA 
PC.TXRINI 



I 

IgENERATE an IN-ACUvE LINE BIT MAP. 
I MOVE BIT MAP TO THE CONTROL BLOCK. 
jCLEAR THE REPEAT TX COUNT IN CNTRL BLCK , 
1 SET UP PARAMETERS FOR INACTIVE LINES. 



t DISABLE RECEIVERS ON ALL LINES TO ENSURE CORRECT INITIALISATION OF ONl. f Tnf 
I LINES THAT ARE SELECTED. 

* MOV ♦MAPLNS.R5 iSET-UP BIT MAP FOR ALL LINES. 

JSR PC.RXDSBL jOISABLF PX ON ALl LINES. 

I ENABLE RECEIVERS ON ASSOCIATED CRX) LINES. 

* MOV ACTLNS.RS iGET THE ACTIVE LINE BIT MAP. 

JSR PC.CONMAP jGENERATE AN ASSOCIATED LINE BIT MAP. 

JSR PC.RXENBL lENABLE RECEIVERS ON ASSOCIATED LINES. 

60»! PASS jRESTORt GPR S. 

JSR PC.a(SP). jRETURN TQ PREG05 S(.©RT. 

RTS PC 
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6968 
6S69 
6570 
65n 
6572 
65 'S 
6574 
6975 
6576 
6577 
6578 
6570 
658C 
6581 
658? 
658S 
6544 
6585 
6586 
6587 
6588 
6589 
6590 
659 i 

bS92 
6593 
6594 
6595 
6596 
6597 
6598 
6599 
6600 
6601 
6602 
660S 
6604 
6605 



6606 
6607 



027012 
027012 
027016 
027020 
027022 
027026 
0270S2 
027054 
0270S6 
027040 
027042 
027046 
027050 

027054 
027056 
027056 
027062 



004567 
010204 
010102 
042701 
042702 
0O0S02 
006202 
006202 
006202 
016202 
010203 
004767 

010002 

010266 
004736 



156306 



170000 
007777 



002364 
172020 

000006 



SBTTL GLOBAl SUBROUTINE 



UAIBIS 



WAIT FOR BIT SET ROUTINE 
THIS SUBROUTINE UAITS TOR THE SPECIFIED BIT TO BECOME SET. If THE 
SPECIFIED BIT GOES TO A SET STATE MITMIN THE SPECIFIED TIME »JT 
PERIOD A SUCCESS INDICATION IS RETURNED Bt THIS ROUTINE. 
THE LAST VALUE UHICH IS READ lOOKING FOR THE CONDITION IS RETURNED TQ 
ALLOW THE USE OF THIS ROUTINE TO LOOK FOR DESTRUCTIVE READ CONDITION'}. 



l»#»UTSi 



• OUTPUTS: 



Rl riHE-OUT VALUE AND BIT NUMBER INDICATION: 

BITS 15 THRU 12 NUMBER OF BIT TO TEST (RANGE 0 ThRU 15). 
BITS 11 THRU 0 TIME OUT VALUE IN MILLI SECONDS C4095 MAX). 

R2 ADDRESS OF WORD CONTAINING THE BIT TO TEST. 
MSLCNT . 

R2 • THE LAST WORD UHICH WAS READ TO CHECK FOR THE CONDITION. 
CARRY SUCCESS FLAG (CARRY SET IF BIT SET BEFORE TIME-OUT), 



• CALLING SEQUENCE: 



MOV 

MOV 
JSR 



•130040. Rl 

•LABEL .R2 
PC. UAIBIS 



iPASS BIT 11 (IS OCTAL) AND 
I 32 (40 OCTAL) MS DELAr. 
iTEST BIT IN WORD AT "LABEL . 
jUAIT 32 MS FOR BIT H TO SET 



• COMMENTS: 



* SUBORDINATE ROUTINES CALLED: MSLGET. 



UAIBIS:: SAVE 

MOV 

MOV 

BXC 

BIC 

SUAB 

ASR 

ASR 

MOV 
MOV 

JSR 



JSR 

R2.R4 

R1.R2 

•1 70000. Rl 

♦7777, R2 

R2 

R2 

R2 

R2 

BITTBL(R2),R2 

R2.R3 

PC, MSLGET 



60* i 



027064 000207 



MOV 
PASS 



RTS 



R0,R2 
R? 



PC 



MOV 
JSR 



I SAVE CONTENTS OF GPRS RO THRU R5. 
R5.PREG05 I CALL REGISTER SAVE SUBRT. 

I SET UP THE ADDRESS PARAMETER FOR MSLGET. 

iSEPERATE DELAY COUNT OUT OF PASSED PARAMETER. 
jSEPERATE LINE NU*«ER FIELD OF PASSED PAR AM. 
I PUT LINE NUMBER FIELD IN LSBYTE. 
I SHIFT THE LINE NUTQER FIELD INTO THE PROPER 
I POSITION TO USE XT AS A WORD TABLE OFFSET 
I FOR THE TABLE LOOKUP OF THE LINE BIT MAP. 
iGET BIT MAP OF LINE TO TEST FROM TABLE. 
I INDICATE THAT THE BIT SHOULD BE SET. 
iHAIT FOR THE BIT TO BE SET UlTHIN TIME-OUT. 
J CARRY IS CORRECT UPON MSLGET RETURN. 
iPASS LAST VALUE READ AS OUTPUT PARAMETER. 
{RESTORE GPRS. EXCEPT THE FOLLOWING: 
R2.R2SL0T(SP) |PUT R2 IN STACK SLOT. 

PC.8(SP). J RE TURN TO PREG05 SL«RT. 

I R2 - LAST VALUE READ LOOKING FOR CONDITION. 
, CARRY SUCCESS FLAG (SET IF BIT FOL-ND stT). 
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MO XV 



^Mi 
6*12 

6614 

66t5 
6610 
6617 
6619 
6619 
66^0 
6621 
bt22 
(b62$ 
6624 
6625 
6626 
662^ 
6628 
6629 
6630 
6^31 
6632 

6653 
6634 
6635 
6636 
6637 
6639 
6639 
6640 
6641 
6642 
6643 
6644 
6645 

6646 



027066 
027066 



027072 
027076 
027100 
027102 



027U2 
027112 
027114 



004t>67 156232 



016701 153112 

010002 

010503 

012704 177777 



027106 004767 166706 



004756 
000207 



.SKTTL GLOBAL SUBROUTINE 



WTULNC 



LINE CONTROL REGISTER SETUP ROUTINE 
THIS SUBROUTINE IS USED TO SET THE DEVICE UNDER TEST (OUT) LINE 
CONTROL REGISTERS CLNCTRL) TO THE SPEClf^IED STATE. ONLr ThE LNCTRLS 
FOR THE SPECIFIED LINES ARE ALTERED. 

INPUTS: RO NEW LINE PARAHETERS. 

R5 BIT MAP OF LINES TO BE ALTERED. 
C5RA - CONTAINS ADDRESS OF THE DUT CSR. 

lESTAT ' CONTAINS THE CURRENT STATE OF THE TX AND RX INTERRUPT 
ENABLE BITS IN THE CSR. 
LNCTRA CONTAINS ADDRESS OF THE DUT LNCTRl REGISTERS. 

OUTPUTS: LNCTRL - SPECIFIED DUT LINE CONTROL REGISTERS ARE ALTERED. 

CALLING SEQUENCE: JSR PC. WTULNC 

COMMENTS: 

SUBORDINATE ROUTINES CALLED: ALTFLD. 



* 

* 

* 

!* 
«• 
I* 



JSR 



I SAVE CONTENTS OF GPRS RO THRU R5. 
R5.PREG05 tCALL REGISTER SAVE SU8RT. 



WTULNC:: SAVE 

!'SET UP THE PARAMETERS FOR THE CALL TO ALTFLD. 

* MOV LNCTRA. Rl jSET UP THE REGISTER ADDRESS PARAMETER. 
MOV R0,H2 jSET UP THE DESIRED REGISTER CONTENTS. 
MOV R5.R3 iSET UP ThE BIT MAP OF LINES TO ALTER. 
MOV »-l.R4 5 SELECT ALL REGISTER BITS TO BE ALTERED. 

TcALL THE SUBROUTINE WHICH ALTERS THE REGISTER CONTENTS. 

* JSR PC.ALTFLO tALTER THE REGISTER CONTENTS. 



60t: 



PASS 
RTS 



PC 



J RE STORE GPRS. 
JSR PC.a(SP). 



RETlRN TO PREG05 SUBRT. 
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6t>4S 
6649 

6650 
6651 
6652 
6655 
6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 
6662 
6665 
6664 
6665 
6666 
6667 
6668 
6669 
6670 
6671 



6672 
6673 
6674 
6675 
6676 
6677 
6676 
6679 
6680 
6681 
6682 
6685 
6684 

6665 



027116 
027116 



027122 
027126 
027150 
027152 



027142 
027142 
027144 
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004567 156202 



016701 
010002 
010503 
012704 



153056 

177777 



027156 004767 166656 



004756 
000207 



UTHLPR 



t* 
i* 
»• 

!♦ 
!• 
J* 
S* 
I* 
S* 
!* 

J* 

s* 

!* 
!* 
!* 
S* 
J* 
5* 
I 



LINE PARAMETER REGISTER SETUP ROUTINE 
THIS SUBROUTINE IS USED TO SET THE DEVICE UNDER TEST COUD LIK*. 
PARAnETER REGISTERS (LPR) TO THE SPECIFIED STATE. ONLY THE LPRS FOR 
THE SPECIFIED LINES ARE ALTERED. 

INPUTS: RO NEU LINE PARA^ETFRS. 

R5 BIT HAP OF LINES TO BE ALTERED. 
CSRA - CONTAINS ADDRESS OF THE OUT CSR. 

lESTAT CONTAINS THE CURRENT STATE OF THE TX AND RX INTERRUPT 
ENABLE BITS IN THE CSR. 
LPRA CONTAINS ADDRESS OF THE DOT LPR. 



OUTPUTS: LPR 
CALLING SEQUENCE 
COfWENTS: 

SUBORDINATE ROUTINES CALLED: ALTFLD 



SPECIFIED OUT LINE PARAMTER REGISTERS ARE ALTERED. 
JSR PC. UTULPR 



UTULPR:: SAVE 



( ♦ 



;SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 iCALL REGISTER SAVE SUBRT. 



5 SET UP THE PARAMETERS FOR TmE CALL TO ALTFLD. 



MOV 
MOV 
MOV 
MOV 



LPRA.Rl 
R0.R2 
R5.R5 
♦-1.R4 



;SET UP THE REGISTER ADDRESS PARAMETER. 

I SET UP THE DESIRED REGISTER CONTENTS. 

sSET UP THE BIT MAP OF LINES TO ALTER. 

S SELECT ALL REGISTER BITS TO BE ALTERED. 



I'CALL THE SUBROUTINE WHICH ALTERS THE REGISTER CONTENTS. 

JSR PC, ALTFLD jALTER THE REGISTER CONTENTS. 

60$ : PASS 

RTS PC 



JSR 



I RE STORE GPRS. 
PC.8(SP)» 



(RETURN TO PREG05 SUBRT, 
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<K>07 
66«e 
6609 
6690 
6691 
6692 
669S 
6694 
6695 

6697 
6690 
6699 

6700 
6701 
6702 
6705 
6704 
6705 
6706 
6707 
6700 
6709 
6710 
6711 
6712 
6713 
6714 
6715 
6716 
6717 
6718 
6719 
6720 

6721 
6722 



.S8TTL imTERR'JPr SERVICE ROUTINE 



CLKINT 



♦ * 
I* 
»• 
J* 
s • 
»• 

J* 
J* 
J* 

!♦ 
!• 

J* 

I* 

t - ■ 



THIS ROUTINE IS EXECUTED CLKHRZ . IMES PER SECOND. 
TMO TIMER COUNTERS DOWN TO ZERO. 



IT OECREMFNTS THE 



INPUTS: 



OUTPUTS: 



TIMERl TIMER COUNTER ♦! . 
TIMERS - TIMER COUNTER 42. 
TIMERS - TIMER COUNTER FOR CALL 



or BREAK MACRO. 



THE 2 TIMER COUNTERS ARE DECREMENTED ir THEY ARE NOT ZERO. 



CALLING SEOLiENCE: 



PUT ^CLKINT IN THE CLOCK INTERRUPT VECTOR SLOT. 
PUT THE DESIRED TIME PERIOD (SECONDS TIMES CLKHRZ1 IN 
EITHER TIMERl OR TIMER2 AND POLL THE RESPECTIVE TIMER 
COUNTER TO DEFECT ITS GOING TO 0 ON TIME OUT. 



COMMENTS: THE 2 COUNTERS WILL NOT WRAPAROUND BUT WILL STOP AT 0. TmIS 

ALLOWS THE DETECTION OF A TIME-OUT ANY TIME AFTER THE TIME-OUT 
MAS OCCURRED UNTIL THE TIMER COUNTER IS SET TO ANOTHER VALUE. 

SUBORDINATE ROUTINES CALLED: NONE. 



027146 


005767 


153126 


CLKINT: 


: TST 


TIMERl 


{CHECK FOR TIMERl AT ZERO. 


027152 


001402 






BEQ 


2t 


; BRANCH TO LEAVE IT AT ZERO IF IT IS ZERO. 


027154 


005567 


153120 




DEC 


TIMERl 


{DECREMENT TIME COUNT. 


027160 


005767 


153116 


2«: 


TST 


TIMER2 


1 CHECK FOR TIMER2 AT ZERO. 


027164 


001402 






BEQ 


4t 


{BRANCH TO LEAVE IT ALONE IF IT'S ALREADY ZERO 


027166 


005367 


153110 




DEC 


TIMER2 


{DECREMENT TIME COUNT. 


027172 


005367 


153106 


4(: 


DEC 


TIMERS 


{DECREMENT THE BREAK COUNT. 


027176 


001006 






BNE 


60$ 


{EXIT IF NOT TIME TO CALL BREAK. 


027200 


016767 


153102 


153076 


MOV 


BCOUNT. TIMERS 


{SET L** TIME TILL NEXT BREAK. 


027206 


010046 






MOV 


RO. (SP) 


{SAVE CONTENTS OF RO FROM BREAK MACRO. 


027210 








BREAK 




{CHECK FOR OPERATOR CONTROL /C. 


027210 


104422 










TRAP CfBRK 


027212 


012600 






MOV 


(SP)».RO 


{RESTORE CONTENTS OF RO. 


027214 


000002 




60*: 


RTI 







14 
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t>.V4 

ovr 

b730 
6'5l 
6 75? 
6753 
6 754 
6755 
6756 
6737 

6750 
6759 
6740 
6741 
6742 
6745 
6744 
6745 
674t 
6747 
6740 
6749 
6750 
6751 
67:;2 
6755 
6754 
6755 
6756 
6757 
6758 
6759 
6760 
6761 
6762 
6765 
6764 
6765 
6766 
6767 
6768 
6769 
6770 
6771 
6772 
6775 
6774 
6775 
6776 
6777 
6778 
6779 
6780 



.SBTTL INTERRUPT SERVICE ROUTINE 



RXCHRS 



- DMA RECEIVE INTERRUPT SERVICE ROUTINE 
THIS ROUTINE EXECUTES IN RESPONSE TO AN INTERRUPT CAUSED Bt THE OUT 
RX, DATA. AVAIL BIT BECOMING ACTIVE. THIS ROUTINE READS CHARACTERS TROM 
THE DUT RECEIVE O-ARACTER . IFO AND DEPOSITS THEM INTO THE RECEIVE 
BUFFER IN MEMORY. IF THE NUMBER OF CHARACTERS IN THE RECEIVE BUFFER 
EXCEEDS A SPECIFIED THRESHOLD. TRANSMISSION IS MALTED (By CLEARING ALL 
DUT TX. ENABLE BITS) AND IF THE RECEIVE BUFFER IS FULL RECEPTION IS 
HALTED C6Y DISABLING RX INTERRUPTS). THt ROUTINE EXITS IF THE RECEIVE 
BUFFER BECOMES FULL OR IF A CHARACTER IS READ FROM THE FIFO UIlM THE 
DATA. VALID BIT CLEAR. 



INPUTS: 



OUTPUTS: 



RBC^A 

RXBCNT 

RXBOTX 

RXBENO 

RXBFUL 

RXBIPT 

RXBSTA 

RXBIPT 
RXBCNT 
TXENBM 
CARRY 



CONTAINS ADDRESS OF THE DUT RX CHARACTER FIFQ. 
RX BUFFER CHARACTER COUNT. 

- EQUATED TO RX BUFFER LEVEL AT WHICH TO DISABLE TX. 

- LABEL AFTER END OF THE RX BUFFER AREA IN MEMORY. 

- EQUATED TO THE CAPACITY OF TMfc RX BUFFER. 

- POINTER TO NEXT AVAILABLE INPUT SLOT OF Rx BUFFER. 

- LABEL AT START OF RX BUFFER AREA IN MEMORY. 

- UPDATED TO POINT TO NEXT INPUT SLOT OF RX BUFFER. 

- RX BUFFER CHARACTER COUNT (INCREMENTED). 

- MAP OF PREVIOUS OUT TX. ENABLE STATES. 
"SUCCESS" FLAG (SET IF BUFFER IS NOT FULL>. 



CALLING SEQUENCE: 



PUT THE ADDRESS OF 
LOCATION. 



THE LABEL RXCHRS IN THE VECTOR 



COMMENTS! 



IF THE RX 
PROGRAM. 



BUFFER IS FULL UPON ENTRY, THIS ROUTINE ABORTS THE 



SUBORDINATE ROUTINES CALLfeD: RXIEO, TXDSBL . 



027216 


010246 






RXCHRS: 




MOV R2. (SP 


027220 


017702 


152756 




2<: 


MOV 


aR6UFA.R2 


027224 


100054 








6PL 


60 ( 


027226 


026727 


155464 


000100 




CMP 


RXBCNT . ♦RXBFUL 


027254 


105402 








6L0 


4$ 


027256 


004767 


172562 






JSR 


PC. OOPS 


027242 


010277 


155446 




4*: 


MOV 


R2.aRXBIPT 


027246 


062767 


000002 


153440 




ADO 


«2. RXBIPT 


027254 


026727 


1554 34 


003120 




CMP 


RXBIPT.MXBEND 


027262 


103405 








BLO 


61 


027264 


012767 


002720 


15342? 




MOV 


ORXBSTA. RXBIPT 


027272 


005267 


153420 




6«: 


INC 


RXBCNT 


027276 


026727 


155414 


000030 




CMP 


RXBCNT. 4RXB0TX 


027304 


002745 








BLT 


2» 


027306 


005767 


153174 






TST 


TXOBLF 


027512 


100415 








BMI 


&% 


027314 


010546 








MOV 


R5. (SP) 


027516 


012705 


177777 






MOV 


•MAPLNS.RS 


027322 


004 767 


176006 






JSR 


PC.TXOSBL 


027326 


010567 


152730 






MOV 


R5. TXENBM 



I J SAVE CCW4TENTS OF GPR R2. 

{READ A CHARACTER FROM THE OUT RX FIFO, 
sEXIT THE ROUTINE IF THE DATA. VALID BIT IS CLR. 

.-COMPARE BUFFER COUNT WITH BUFFER CAPACITY. 
J SKIP ABORT IF BUFFER IS NOT FULL. 
{ABORT. MUST BE A PROGRAM BUG. 
J PUT THE CHAR IN THE BUFFER. 
{UPDATE c-OINTER TO THE NEXT BUFFER SLOT. 
{CHECK IF POINTER SHOULD URAP AROUND. 
{SKIP WRAPAROUND IF POINTER IS NOT AT END. 
(WRAP INPUT POINTER AROUND. 

{COUNT THIS CHARACTER AS BEING IN THE BUFFtR. 

{CHECK FOR BUFFER AT DISABLE TX LEVEL. 

{SKIP DISABLING TX IF BUFFER LEVEL NOT CORRECT. 

{CHECK STATE OF TX DISABLE FLAG. 

(BRANCH IF TRANSMISblON ALREADY DISABLED. 

{SAVE THE VALUE OF GPR R5. 

{SPECIFY THAT ALL LINES SHOULD BE AFFECTED. 

i CLEAR THE TX ENABLES FOR ALL LINES. 

tSAVE PREVIOUS IX ENABLE STATES IN STORAGE. 



OHU 11 »UNC fST t>mi4 MACRO H1200 15 «/W S4 09:48 
INTEIW»l*T SERVICE POUTINE RxC»*»S 



<»?9t 
6782 

6784 
6785 
6786 
6787 
6788 
678-9 
6790 



027112 01^60S 

027554 012767 100000 155144 

027342 026727 153350 000100 8«i 

027550 105723 



027352 004767 175116 

027356 012602 
027360 0O0C02 



60(: 



MOV 
MOV 

CMP 
BLO 

JSR 

MOV 
RTI 



Hi4 

P«GE 120 1 



*vEO 17' 



(SP)* R5 'RESTORE GPR R5 . 

•BlT15.TX08Lr IpREVENT TX TROfi BEING 'DISABLED AGAIN. 

RX8CNT.4RXBFUL j CHECK FOR BUFFER FULL CONDITION. 

2% (LOOP TO READ ANOTHER CHAR IF BUFFER NOT FULL. 

PC.RXIEO (BUFFER IS FULL. DISABLE RX INTERRUPTS. 

(SP)».R2 (RESTORE R2 TO ITS SAVFO VALUE. 



Trap siavice Houiihe 

6792 
6793 
6794 
6795 
6796 
6797 
6798 
6799 
6S00 
6801 
680^ 
68CS 
6804 
6805 
6806 
6307 
6808 
6809 
6810 
6811 
6812 
6813 
6814 
6815 
6816 

6817 027362 021627 

6818 027366 001402 

6819 027370 000177 

6820 027374 052767 

6821 027402 000002 
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; * 

] • 

• * 
J * 
; • 

• * 
S * 



017320 TP4BRT:: CMP CSP).«TRPAD2 

BEQ 2i 

152662 JMP aTPAVEC 

100000 152652 2*: BIS «BIT15. TP4FLG 

RTI 



'P4BRT 



;COHPARE EXPECTED AOOR UITM TRAP RET PC. 

{IF THEY MATCH. CONTINUE THIS ROUTINE. 

;1F NOT. JUMP TO NORMAL 004 TRAP SERVICE RTN. 

I SET THE 004 TRAP OCCURED FLAG. 

I ALL DONE. GO BACK TO THE TEST. 



BUS TIHE-OUT TRAP (004 TRAP) SERVICE ROUTINE - 
THIS ROUTINE IS USED DURING THE 01A ADDRESS TEST. 

IT OETERMIMES IF THE 004 TRAP WAS CAUSED BY AN 'EXPECTED" ERROR OR 
NOT BY EXAMINING THE RETURN PC VALUE ON THE STACK, IF THE TRAP IS 
UNExPEC'iEO. THIS ROUTINE JUMPS TO THE NORMAL DIAGNOSTIC SUPERVISOR 
004 TRAP HANDLING ROUTINE. 



INPUTS: SP POINTS TO THE PC UHERE THE TRAP OCCURED. 

TRPAD2 LABEL AT THE ADDRESS UHERE "EXPECTED* 
TP4FLG 004 TRAP FLAGS. 



TRAPS OCCUR. 



OUTPUTS: 



TP4FLG BIT 15 IS SET IF "EXPECTED" TRAP OCCURED. 



CALLING SEQUENCE: 



PUT ADDRESS POINTED TO BY TP4BRT IN 004 VECTOR. 
OCCURENCE OF 004 TRAP VECTORS TO THIS ROUIINE. 



COMMENTS; ANY 004 TRAP WHICH OCCURS AT AN ADDRESS OTHER THAN THAT LABELED 
TRPA02 WILL BE HANDLED BY THE NORMAL 004 TRAP SERVICE ROUTINE. 
THIS ROUTINE IS USED IN CONJUNCTION WITH CKTRPB SUBROUTINE. 



SUBORDINATE ROUTINES CALLED: NONE. 



Ji4 



'**^^P4if»l"*'' •* 09:*8 PAGE l.?2 



'.FO 1/" 



60^5 

69J5 
68^» 
60^7 
6020 

00 SO 
6031 

60 

605S 
60 M 
6055 
60 B6 
68S7 
6050 
6059 
6040 
6041 
6043 
6045 
6044 
6045 
6046 
604 7 

6040 
6049 

6050 
60S1 



027404 0?1627 017270 

027410 001402 

027412 000177 152640 

027416 052767 100000 

027424 000002 



SeTTL GLOBAL TR«> SERVICE ROUTINE 



TP4RTN 



J* 



J • 



8t»S MUE. OUT TRAP (004 TRAP) SERVICE ROUTINE - 

THIS ROUTINE DETERMINES IF THE 004 TRAP WAS CAUSED BY 

AN "EXPECTED" ERROR OR NOT BY EXAMINING THE RETURN PC VAl'jE ON THE 

STACK. IF THE TRAP IS UNEXPECTED. THIS ROUTINE JUMPS TO THE N0R*1AL 

DIAGNOSTIC SUPERVISOR 004 TRAP HANDLING ROUTINE. 



INPUTS: 



OUTPUTS: 



SP - POINTS T3 THE PC WHERE THE TRAP OCCUREO. 
ADRPTR LABEL AT THE ADDRESS WHERE "EXPECTED' 
TP4FLG - 004 TRAP FLAGS. 



TRAPS OCCUR. 



TP4FLG - BIT 15 IS SET IF "EXPECTED" TRAP OCCUREO. 



CALLING SEQUENCE 
COMMENTS: 
SUBORDINATE ROUTINES CALLED: NONE. 



PUT ADDRESS POINTED TO BY TP4RTN IN 004 VECTOR. 
OCCURENCE OF 004 TRAP VECTORS TO THIS ROUTINE. 



ANY 004 TRAP WHICH OCCURS AT AN ADDRESS OTHER THAN THAT LABELED 
ADRPTR WILL BE HANDLED BY THE NORMAL 004 TRAP SERVICE ROUTINE. 



TP4RTN:: CMP 
BEQ 
JMP 

152630 2(: BIS 
PTI 



(SP). •ADRPTR 
2» 

STP4VEC 
^ITIS.TP^PLG 



: COMPARE EXPECTED ADR AGAINST TRAP RET PC. 

sIF THEY MATCH. CONTINUE THIS ROUTINE. 

:IF NOT. JUMP TO NORMAL 004 TRAP SERVICE RTN. 

;SET THE 004 TRAP OCCUREO FLAG. 

I ALL DONE. GO BACK TO THE TEST. 



Ki4 
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685* 






6855 






6056 






6857 






6858 






6859 






6860 






6861 












6865 






6864 






6865 






6866 






6867 






6868 






6869 






68 70 






6871 






6872 






6879 






6874 






60 75 






60 ^6 






68 / ^ 






6070 






OB f 9 






6000 






6681 






6682 


027426 








004567 


^A A S 

6089 


027452 


017701 


^ A AA 

6004 


/\'^7JI TX 

02 74 56 


010100 


^ A AK 

6003 


027440 


000402 


QOOO 






^Afl 7 

OSO ' 






XAAA 












<\AQn 












OOtc 








rtO 7A4 ^ 


A1 7 7At 




^07AA^ 
0« /■•*6 


100035 




n37Aim 


000301 






AAO 7A1 


60 ' f 


f *36 


Aim 
010104 


OOfO 


n37AiLn 

ue f *60 


AA£. VAA 

006304 




A37A^3 

Ue '46e 


A 1 ^A AC 
01640D 








O »W i 












6903 






6904 






f 905 






6906 






6907 


027466 


026464 


6906 


027474 


10S403 



155672 
152542 



152532 
177760 
002364 



003502 0C3442 



.S8TTL INTERRUPT SERVICE ROUTINE 



TXDMA 



- OriA TRANSMIT INTERRUPT SERVICE ROUTINE 
THIS ROUTI»C EXECUTES IN RESPONSE TO AN INTERRUPT CAUSED Bt THE OuT 
TX. ACTION BIT BECOMING ACTIVE. THIS ROUTINE INITIATES THE TX Of A 
NEU DMA BUFFER OF CHARACTERS OR SETS THE TX DONE FLAG FQR THE CORRECT 
LINE IF TX IS COMPLETE ON THAT LINE. 



INPUTS: 



OUTPUTS: 



BITTBL LABEL OF TABLE OF UOROS EACH WITH A BIT SET. 
CNCNTB BASE OF « 0^ CHARS TO TX/RX TABLE. 

CSRA - CONTAINS THE ADDRESS OF THE DuT CSR. 

DPEN06 - BASE OF THE DATA PATTERN END TABLE (ENTRY PER LINE). 

DPLEN8 - BASE OF THE DATA PATTERN LENGTH TABLE. 
lESTAT PRESERVED STATES OF THE OUT INTERRUPT ENABLE BITS. 

TXCNTB - LABLE AT BASE OF THE TX CHARACTER COUNTER TABLE. 

TXPTRB - LABEL AT BASE OF THE TX DATA PATTERN POINTERS TABLE. 

TXCNTX - COUNTERS INCREMENTED FOR LINES ON WHICH CHARS SENT. 
TXOONF TX DONE FLAGS SET FOR LINES WHICH HAVE SENT ALL CHARS, 
TXINTF TX INT FLAGS (BIT SET IF DMA. HO FOUND SET ON LINE). 



CALLING SEQUENCE: 



PUT THE ADDRESS OF THE LABEL TXOMA IN THE VECTOR 
LOCATION. 



COMMENTS : 

SUBORDINATE ROUTINES CALLED: OODMA. 



TXOMA:: SAVE 

MOV 
MOV 
BR 



:SAVE CONTENTS OF GPRS RO THRU R5. 
JSR R5.PREG05 {CALL REGISTER SAVE SUBRT. 

aCSRA.Rl -.READ THE CONTENTS OF THE DU"^ CSR. 

Rl.RO :SAVE INITIAL CONTENTS OF IND.ADR.REG FIELD. 

4* ! BRANCH TO SKIP OOUBL READING OF OUT CSR. 



: READ THE CONTENTS OF THE OUT CSR. THIS WILL CLEAR THE TX. ACTION CSR BIT. 

; IF TX. ACTION IS NOT SET. EXIT THIS ROUTINE. 

{ DETERMINE THE LINE FOR WHICH THE TX. ACTION WAS SET. 

J CALCULATE AN OFFSET FOR USE IN ACCESSING TABLES (2 TIMES THE LINE NUMBER). 

; GET THE BIT MAP OF THIS LINE. 



i - 

2»: 

4»: 



MOV 9CSRA.R1 

BPL 60 » 

SUAB Rl 

BIC *177760,R1 

MOV R1.R4 

ASL R4 

MOV BITTBLCR4).R5 



;REAO THE CONTENTS OF THE DUT CSR. 

lEXIT ROUTINE IF TX. ACTION IS CLEAR. 

{CALCULATE THE LINE NUMBER OF THE LINE WHICH IS 

1 ASSOCIATED WITH THE TX. ACT ION. 

J CALCULATE AN OFFSET FOR USE IN ACCESSING 

♦ LINE COUNTER AND POINTER IN TABLES. 

jGET THE BIT MAP OF THIS LINE. 



: GET THE TX CHARACTER COUNTER FOR THIS LINE. 

; IF ALL THE CHARACTERS HAVE BEEN SENT FOR THIS LINE: 

5 SET THE TX DONE FLAG FOR THIS LINE. 

; DON'T SEND A CHAR TO THE LIVE (NO MORE TX, ACTIONS ON THIS LINE), 

s LOOP TO CHECK THE TX. ACT ION FOR ANOTHER LINE. 

CMP TXCNTBCR4).CHCNT8CR4) jCOMPARE # CHARS SENT AND fx COUNT. 
BLO 6i iGO TO SEND A CHAR IF NOT ALL CHARS SENT. 



Li4 



15S000 



««0 190 



6<M9 


027476 


050567 


6410 


027502 


000757 


691 i 






6912 






6915 






6914 






6915 






6'916 


027504 


016403 


6917 


027510 


016402 


6918 






6919 






6920 






6921 


027514 


004767 


6922 


027520 


103403 


6923 






6924 






6925 






6926 


027522 


050567 


6927 


027526 


000402 


6926 






6929 






6950 






6951 






6932 


027550 


060364 


6935 






6954 






6955 






C956 


027554 


000742 


6937 






6958 


027536 


016701 


6939 


027542 


042700 


6940 


027546 


050001 


6941 


027550 


010177 


6942 


027554 






027554 


004756 


6945 


027556 


000002 



003202 
003342 



170172 



152556 



003502 



152472 
177760 

152424 



BIS 



R5.TX00NF 
2» 



;SET THIS LINE'S TX DONE TLAG. 
.-LOOP TO CHECK TX. ACT ION AGAIN. 



START THE DMA OF THE NEXT BUFFER (DATA PATTERN) ON THIS LINE. 
GET THE DATA PATTERN LENGTH FOR THIS LIHE . 
GET THE START ADDRESS OF THE DATA PATTERN. 



6t; 



nOV DPLENB(R4:.R5 
nOV TXPTRBCR4).R2 



{PASS DATA PATTERN LENGTH FOR LINE TO DOOMA. 
.-PASS THE TX STA«T ADR TO DODMA. 



WRITE DMA PAQAMETERS TO THE OUT. 



s - 



JSR 
BCS 



PC. DOOMA 
8« 



{SKIP ERROR IF OODMA UAS SUCCESSFUL. 
SET T»C PROPER BIT OF THE TX INTERRUPT FLAGS TO INDICATE THE LINE ERROR. 



BIS 
BR 



R5.TXINTF 
10$ 



{INDICATE THE ERROR. 

{SKIP UPDATING POINTERS AND COUNTERS. 



I UPDATE THE TX CHARACTER FOR THIS LINE, 

{ UPDATE THE TX BUFFER POINTER FOR THIS LINE. 

8*: * ADO R5.TXCNTB(R4) {ADD THE DATA PAT LENGTH TO THE TX COUNT. 

LOOP TO CHECK THE TX. ACTION BIT FOR ANOTHER LINE. 



101: 
601: 



BR 

MOV 
BIC 
BIS 
MOV 
PASS 

RTI 



2» {LOOP BACK TO CHECK TX. ACTION BIT AGAIN. 

lESTAT.Rl {GET THE PRESENT STATES OF Tx.IE £ RX.IE BITS. 

*177760,RO {GEf SAVED INO.ADR.REG FIELD BITS. 

RO.Rl {COMBINE INO.ADR.REG FIELD BITS WITH IE BITS. 

R1.8CSRA {RESTORE THE OUT CSR INO.ADR.REG FIELD. 
■RESTORE GPRS 

JSR PC.aCSP)* {RETURN TO PREG05 SUBRT. 



6952 
6953 
6954 
6955 
6956 
6957 
6958 
6959 
6960 

6961 027560 
027560 

6962 

696S 027560 
027560 
027562 

6964 
6965 
6966 

6967 027564 
027564 
027564 



000167 
000000 



104425 



Mi4 
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.sbttl report cooing section 

Tthe report cooing section contains the 

: "prints" calls that generate statistical reports. 

i • 

BGNRPT 



LIRPT:: 



EXIT 

• EVEN 
ENORPl 



RPT 



L 10016: 



.WORD JIJHP 
.WORD L 10016 -2 



TRAP C»RPT 
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N14 



6969 .SBTTL PROTECTION TABLE 

6977 
6970 
6979 
6980 
6981 
6982 
6985 

6984 027566 BGNPROT 

027566 L»PROTi 

6985 



THIS TABLE IS USED BY THE RUNTIME SERVICES 
TO PROTECT THE LOAD MEDIA. 



6986 027566 177777 -1 

6987 027570 177777 -I 

6988 027572 177777 -1 
6989 

6990 02 7b 74 ENQPROT 
6991 



OrrSET INTO P-TABLE FOR GSR ADDRESS 
OFFSET INTO P-TABLE FOR MASSDUS ADDRFSS 
OFFSET INTO P-TABLE FOR DRIVE NUMBER 



OHI.I II tunc ISI P<M»T4 



:oi5 

7015 
70lb 

/or 
:'O10 
/OJO 
702C 
7021 
-022 
"021 
7024 
*025 
702h 
702 T 



7028 
"'029 



7050 

7031 
7052 



•'053 

-054 

7055 



■'056 

'057 
'038 



7059 

7040 
7041 
7042 

7045 
7044 

7045 
7046 



7047 
7048 
7049 

7050 
7051 
'052 



02 7574 
027574 

027574 
027574 
027600 
027602 
027602 

027604 
027604 

027610 
027612 
027612 

027614 
027614 
027620 
027622 
027622 

027624 
027624 
027650 
027652 
027652 
027654 
027640 
027640 
027640 



027642 
027642 
027646 

027650 
027652 
027656 
027662 
027666 
027672 
027700 



012700 
104447 

105416 



012700 
104447 

105556 



012700 
10444 7 

103555 



012700 
104447 

103161 
000167 



104455 



012700 
104462 

OlOOOl 
012167 
012167 
012167 
012167 
026 727 
001004 
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"^0 185 



000040 



000037 



000055 



000056 



000540 



000114 



152412 
152410 
152406 
152404 
152400 



.SBTTL INITIALI2E SECTION 



THIS SECTION CONTAINS THE CODE UHICM IS PERTQimEO AT THE BEGINNING QT 
EACH PASS OR AFTFR A CONTINUE COHHANO. 
THIS CODE PERTORHS THE FOLLOWING ACTIONS: 

HOVES THE INTORHATION HELD IN THE HARDWARE P- TABLE INTO THE GLOBAL 
DATA AREA. 



BGNINIT 

I SEE IF PROGRAH JUST STARTED. BR V YES 
REAOEF «Er. START 



LIINIT:t 



8C0MPLETE 



NEWS T A 



tSEE IF PROGRAH JUST RESTARTED. BR IF TES 
REAOEF tCF. RESTART 



BCOMPLETE 



NEURES 



I SEE IF THIS IS A NEW PASS, BR IF YES 
REAOEF AEF.NEW 



BCOMPLETE 



NEWPAS 



I SEE IF PROGRAH WAS JUST CONTINLf D 
REAOEF •EF.CONTINlC 



NEWSTA: 



t • 



BNCOMPlETfc 
JHP ENDIT 
BRESET 



GETPRM 



HOV 
TRAP 

BCS 



ncv 

TRAP 
BCS 



HOV 
TRAP 

BCS 



HOV 
TRAP 

BCC 



•EF. START. RO 
CIREFG 

NEWSTA 



•er. restart.ro 

CIREFG 



NEWRES 



•EF.NEW.RO 
CIREFC 

NEwPAS 



•EF.CONTINLt.RO 
CIRCFG 

GETPRH 



{RESET THE BUS TO PREVENT ILLEGAL INTERRUPTS. 



TRAP 



I SET UP FOR I INE TIME Cl OCK INTERRUPTS. 



000062 



CLOCK t.Rl 



MOV {R1)..CLKCSR 

MOV (RD'.CLKBRL 

MOV CRD'.CLKVCC 

MOV (Rl)..CLKHRZ 

CMP CLKMRZ,»50. 

BNE 2% 



iGET THE CLOCK PARAMETERS. 

MOV 

TRAP 

MOV 

iSTORE CLOCK CSR AOORESS. 
{STORE CLOCK BUS REQ INT LEVEL. 
I STORE CLOCK INTERRUPT VECTOR. 
{STORE CLOCK FREQUCNCt. 
sTFST FOR 50h; LINE FREQUENCf. 
{BRANCH IF ClOCK IS NOT 50H/. 



CfRESET 



• L.RO 

C«Cl 

RC.Rl 



ohu 11 *unc rsr paiit4 

INITI41 171 SCCTION 



CIS 
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' Uc ' ' Vc 


Vic <o < 








■RJV 




1 INDICATE 20MS PtR ClOCk TICK. 






















74M<( <197 719 


rtl 37A7 
vie 'O ' 




t^J<7A 




MflV 




{INDICATE 17 HS PER CLOCK TICK. 














3C 1 VcL 




IINITIALI2E CLOCK INTERRUPT VECTOR. 


A ^ T 7 ^/l 














nuv 




A3775A 


vie 












MOV 


•CLKIN*^. CiPi 
CLKVEC. (SPi 


rt5T7Xrt 
U« ' 1 9V 


Af ^7AJ>. 












MOV 


VC ' 1 9^ 




WIaW9 










MOV 


(SP) 


027740 


1044S7 












TRAP 


CISVEC 


027742 


062706 


000010 










ADO 


•10, SP 


■'057 027746 


016700 


152524 






HOV 


CLKMRZ.RO 


1 INITIALIZE THE BREAK COUNT 


705« 02 7 75J 


006S00 








ASL 


RO 


I TO CAUSE A BREAK 




705<» 027754 


010067 


152526 






HOV 


RO.BCOUNT 


J EVERY 2 SFCONOS. 




7060 027760 










SETPftI 


•PR 105 


lAlLOW CLOCK INTERRUPTS DISABLE 


OTHERS. 


027760 


012700 


000240 










MOV 


•PR 105, PC 


0^7764 


104441 












TRAP 


CISPRI 



7061 
















•♦065 








7064 








7065 








7066 


027766 


016767 


150012 


7067 


027774 


012767 


027404 


7069 








^069 








7070 








7071 


050002 


005067 


152246 


7072 


050006 


012767 


000100 


7075 


050014 


012700 


002266 


7074 


050020 


016701 


152244 


7075 


050024 


004 7A7 


167226 


7076 


050050 


016767 


152222 


707 7 


050056 


105405 




7078 


050040 


005067 


152252 


7079 


050044 


000402 




7080 








7081 








7082 








7065 
7084 


0S0046 


004767 


166020 


7085 








7086 








7067 








7068 


050052 


016767 


147726 


7089 


050060 


012767 


027404 


7090 


050066 


005067 


152162 


7091 


050072 


005067 


152170 


7092 


050076 


012700 


002266 


7095 


050102 


016701 


152206 


7094 


050106 


005067 


152206 


7095 


050112 


005067 


152204 


7096 


050116 


004 767 


167154 


7097 


050122 


016767 


152150 


7096 


050150 


105005 




7099 050152 


012767 


000001 


7100 


050140 


00506? 


152076 


7101 


050144 


000167 


000006 



152262 
150002 



152252 



147746 



152176 
147716 



147654 

152160 



J ENABLE THE LINE TIME CLOCK (LTC) CHECKING TO MAKE SURE THAT TmE CSR 
t IS ACCESSABLE. 

J FIRST SET UP TO CATCH ANY 004 TRAPS UMICH OCCUR: 

* MOV 4.TP4VEC jSAVE THE EXISTING 004 TRAP VECTOR. 

MOV #TP4RTN.4 iSET 004 TRAP VECTOR TQ OUR SERVICE RTN ADR. 



t ♦ 
t 

i - 



ENABLE LTC CHECKING FOR 004 TRAP IN CASE CSR IS NOT TmERE. 

CLR TP4FLG i CLEAR THE 004 TRAP FLAG. 

MOV «eiT6.U0(tDl iSET UP TO SET BIT6 OF THE LTC CSR. 

MOV #MORD1.RO I SET UP UOROl AS THE CkTRAP MUvc SOUPCE. 

MOV CLKCSR.Rl iSET UP LTC CSR AS DESTINATION FOR CKTRAP MOVE, 

JSR PC. CKTRAP iMOVE AND CHECK FQR TRAP. 

nOV TP4yEC.4 iRESTORE THE NORMAL 004 TRAP VECIOR. 

BCS 6« I IF NO TRAP. LTC IS THERE SO CONTINUE. 

CLR CLKMRZ iCLEAR LTC FREQUENCY WORD TO INDICATE NO LTC, 

BR 6« iBYPASS THE FOLLOWING CALIBRATION PROCEDURES. 

I CALIBRATE THE DELAY ROUTINE MILLI -SECOND DElAy COUNT VALUE. 

61: JSR PC.CALMSL 

!*CHECK FOR HEMMORY MANAGEMENT PRESENT ON THIS MACHINE. 
I IF MEM MOT IS PRESENT, DISABLE IT. 

t - 
81: 



101: 



MOV 
MOV 
CLR 
CLR 
MOV 
MOV 
CLR 
CLR 

JSR 
MOV 

BCC 
MOV 
CLR 

JMP 



4 . TP4VEC 
•TP4RTN.4 
TP4FLG 
WORDl 
•WORDl.RO 
MMSRO,fll 
MMPRES 
MMENAB 
PC. CKTRAP 
TP4VEC.4 
101 

•1, MMPRES 

PASCNT 

NEltf>AS 



J SAVE THE EXISTING 004 TRAP VECTOR. 
iSET 004 TRAP VECTOR TO OUR SERVICE RTN ADR. 
I CLEAR THE 004 TRAP FLAG. 

{PREPARE TO CLEAR THE MEM MGT SRO REGISTER. 

{SELECT CLEARED WORD AS CKTRAP RTN SOURCE. 

{SELECT MEM MGT SRO REGISTER AS DESTINATION. 

{INDICATE NO MEM MGT PRESENT IN CASE IT ISN T. 

{INDICATE MEM MGT IS NOT ENABLED. 

{CLEAR THE MEM MCT SRO REG AND CHECK FOR TRAP. 

{RESTORE THE NORMAL 004 TRAP VECTOR. 

iSKiP INDICATING MEM MGT PRESENT IF IT ISN ^ 

(INDICATE THAT MEM MGT IS PRESENT. 

(CLR COUNTER USED IN REPORTING ROM VERSION •. 

(SKIP AROUND THE BUS RESET. IT'S BEEN DONE. 
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•10^ 
7105 

7104 

7105 

:iOte 
no9 

710** 
7110 
7111 
7112 
7115 
7114 
7115 
7116 
7117 
7ll« 
7119 
7120 
/121 
7122 



7125 

7124 
7125 
7126 
7127 
7128 
7129 
7150 
7151 
7152 
7155 
7154 
7H5 
7156 
7157 
7158 
7159 
7140 
7141 
7142 
7145 
7i44 

a45 

7146 
7147 
7148 
7149 
7150 
7151 
7152 
7155 



050150 
050130 
050152 

050156 
050156 



030164 
050170 
050172 



050176 
050176 
050202 
050210 

050212 
050212 
050216 
050220 
050222 
050222 
050224 



050226 
050252 
050254 
050240 
050244 
050250 
050254 



050260 
050264 
050266 
050270 
050274 
050500 
050502 
050504 
050506 
050510 



1044S5 

005067 



012767 



005267 
001002 
005S67 



005267 
026767 
002562 



016700 
10444^ 

010001 

105401 
000764 



012167 
012102 
010267 
062702 
010267 
012167 
111167 



016701 
005201 
005201 
012705 
012702 
010122 
005201 
005201 
005505 
001575 



152064 

1777'7 

152052 
152044 



151774 
151770 



151760 



152012 



MFURES: Bi«ESt:T 
CLR 

NEUPAS: 

MOV 



PASCNT 



» l.UNITN 



I RESET THE BUS TO PREVENT ILLEGAL INTERRUPTS. 

TRAP C (RESET 
iCLR COUNTER USED IN REPORTING ROM VERSION 0. 



iRESET LOGICAL DtVlCt TO -I 



t INCREMENT THE PASS COUNTER. CORRECT FOR ANY OVERFLOU. 
t THIS COUNTER IS USED IN THE ROM VERSION TEST. 

INC PASCNT J INCREMENT THE PASS COUNTER. 

BNE GETPRM tBRANCH IF WE HAVE NOT YET* OVERFLOWED. 

DEC PASCNT I SET PASS COUNT TO 1 77 777 OCTAL. 



151602 



t GET THE HARDWARE PARAMETERS FOR THIS UNIT. 
GETPRM: 

INC UNITN 
CMP UNITN. LIUNIT 

BGE NEUPAS 



J INCREMENT LOGICAL DEVICE NUMBER 
J SEE IF MAXIMUM UNIT NO. EXCEEDED 
iBR IF YES 



GPHARD UNITN.Rl 

BCOMPLETE 50« 
BR GETPRM 



I GET P- TABLE POINTER INTO Rl 

iBR IF DEVICE AVAILABLE 
,SKIP THIS DEVICE 



MOV 

TRAP 

MOV 

BCS 



UNITN. RO 

CIGPMRD 

RO.Rl 

501 



151746 

151726 
000004 
151 720 
15S716 
151714 



151714 



000007 
002202 



50S: 



MOV (RD'.CSRA 

MOV (R1)».R2 

MOV R2.RXVECA 

ADO M.R? 

MOV R2.TXVeCA 

MOV CRl)».ACTLNS 

MOVB (Rl).LOPBCK 



HARDWARE PARAMETER MOVING CODE 



iSTORE OHU-ll CSR ADDRESS IN DEV .REG. ADDRESS TABLE 

tGET THE RX INTERRUPT VECTOR ADDRESS. 

t STORE RX INT VECTOR ADDRESS. 

jCALCULATE iX INTERRUPT VECTOR ADDRESS. 

iSTORF TX INT VECTOR ADDRESS. 

iSTORfc DHU-ll ACTIVE LINE BIT MAP 

(STORE DHU-U LOOPBACK MODE 



i 
I 

I • 



12>: 



i • 



CALCULTATE DEVICE REGISTER ADDRESSES. AND PUT THEM IN THE 
DEVICE REGISTER ADDRESS TABLE. 

MOV CSRA.Rl I COPY CSR ADDRESS 

INC Rl ; INCREMENT CSR ADDRESS 

INC Rl ; COPT BY 2. 

MOV »7.fi5 J SET UP REGISTER COiXT 

MOV #RBUFA,R2 ,GET LOCATION WHERE RBUF ADDRESS GOES IN TABLt 

MOv R1.CR2)* iSTORE REGISTER ADDRESS IN TABLE 

INC Rl I INCREMENT REGISTER ADDRESS 

INC Rl I BY 2, FOR THE NEXT DEVICE REGISTER. 

DEC R5 J DECREMENT REGISTER COUNT 

BNE 121 (LOOP IF NOT DONE 



050512 012700 002512 



I INITIAl ISE THE BMP CODE QuEuE. 
* MOv •BMPCQB.RO ;GfT THE STAR^ ADDRESS OF THE QUFUF 



DMU n HJhC TST PAHT4 



:iS4 

7155 
7156 
7157 
7l5a 
7159 
7160 
7161 
7162 
716S 
7164 
7165 
7166 
716 r 



7168 
7169 

7170 
7171 
7172 
7175 
7174 



7175 
7176 



7177 
7178 



030516 
0S0S22 
0S0S26 
OSOSSO 
030932 



030354 
030542 
030344 
0S0352 
030354 
030554 
030560 
C50364 
050370 
050372 
050574 
050400 

030400 



050400 
030400 
050404 

030406 
050406 
050406 



012701 
010067 
005020 
020001 
103775 



052767 
001416 
026727 
003412 

016746 
012746 
012746 
010600 
104417 
062706 



012700 
104441 



104411 
000000 
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b I 



002712 
152162 



14$: 



nov 
nov 

CLR 



8L0 



PC.8MPCQP 
RO.Rl 



GET THE EHD ADDRESS OF THE QOEtJE . 

SET THE POINTER TO THE START OF THE QUEUE. 

CLEAR OUT THE CONTENTS OF THE QUE'JE . 
I CHECK IF END OF QUEUE HAS BEEN REACHED. 
sLOOP IF NOT ALL DONE. 



; REPORT THE IHIT NUMBER IF THE SOFTWARE P TABLE QUESTION WAS ANSWERED fES. 
t AND THE MAXIMUM UNIT NUMBER IS GREATER THAN 1. 



000020 151620 
151442 000001 



151616 
007535 
000002 



t - 



BIT 
6EQ 
CMP 

8LE 

PRINTF 



•6IT4. OPTION 
16$ 

L$UNIT .#1 
16$ 

•MF UNIT. UNI TN 



000006 



! CHECK IF THE QUESTION WAS ANSWERED YES. 
sSKIP REPORTING UNIT NUMBER IF IT IS DISABLED 
•.CHECK MAXIMUM NUMBER OF UNITS SELECTED. 
tDO NOT REPORT UNIT NUMBER IF MAX NUMBER < I. 
I REPORT UNIT NUMBER. 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 



000540 



16$: 
ENOIT: 

{SET THE PROCESSOR PRIORITY TO DISABLE ALL INTERRUPTS, 

' SETPRI «PRI07 jSET PROCESSOR PRIORITY TO 7. 

MOV 
TRAP 



UNITN. -CSP) 
•MFUNIT. (SP; 
92. -CSP) 
SP.RO 
C$PNTF 
•6,SP 



OPRI07.ro 
C$SPRI 



ENDINIT 



TNUM 



LI 0020: 



TRAP CtlNIT 
(INITIALIZE THE ASSEMBLER TEST NUMBER VARIABLE, 



f L'.j 
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71«S I FVTO.ATO 

7164 t 

7167 
716S 

7169 .SBTTL AUtOOROP SECTION 

719C 

7191 

Tl92 s ♦ • 

7195 I THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 

7194 ; TNE "ADR" FLAG UAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 

7195 J SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 
719* s DROPPED FROM TESTING. 

7197 ; - 

7196 

7199 050410 BGNAUTO 

050410 LtAUTO:: 

7200 
7207 

7206 050410 ENDAUTO 

050410 L10021- 

050410 104461 fBAP CJAUTQ 



Gi5 
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SEO 188 



7^17 
7J18 

7221 
''222 
7223 
7224 
7225 
7226 

7227 

72y> 

7237 
7258 
72|<» 

7240 
7241 



7242 
7254 
7255 
7256 
7257 



.SBTTL CLEANUP COOING SECTION 



; THE CLEANUP CODING SECTION CONTAINS THE COOING THAT IS PERFQWIEO 
; ATTER THE HARDWARE TESTS HAVE BEEN PERFORMED . 



050412 
0S0412 



050412 005767 151602 
050416 001401 
050420 

050420 104455 

050422 

050422 

050422 104452 
050424 000002 



050426 
050426 

050426 104412 



21 1 



BGNCLN 



TST 
BEQ 
BRESET 



EXIT 

.EVEN 
ENOCLN 



CTRLCF 
2% 



CLN 



L$CLEAN: : 



sOID WE GET MERE BY CTRL-C FRQH TEST? 
J CTRL C FROM TEST? NO. SKIP BUS RESET. 
;rES. CLR ANY DMAS OR OUTSTANDING INTERRUPTS. 

TRAP C«RESET 



TRAP 
.WORD 



CIEXIT 
L 10022 • 



L 10022: 



TRAP CtCLEAN 



Hi5 



HACRO m^00 is map 84 09:48 PAGE l.?** 



%E0 Ifi'i 



7?6 7 
7^66 

7270 
7271 
7272 
7275 
7274 
7275 

7276 
7277 
7279 
7279 
72»0 
72© I 
7282 
7285 



0SO45O 
030450 



7284 
7285 
7286 



7287 
7288 
7289 
7290 



7291 
7292 
729S 



050450 
050450 
050452 
050456 
050442 
050444 
050446 
050452 

050454 
050457 
050462 
050465 
0504 70 
050475 
050476 
050501 
050504 
050507 
050512 
050515 
050520 
050525 
050526 

050552 

050552 
050552 
050554 



050556 
050556 
050556 



010046 
012746 
012746 
010600 
104417 
062706 
000427 

045 
125 
124 
066 
040 
117 
105 
106 
115 
125 
110 
040 
125 
116 
045 



000167 
000000 



104455 



050454 
000002 



000006 



101 
116 
045 
045 
104 
120 
104 
122 
040 
122 
105 
124 
124 
107 
116 



.S8TTL DROP UNIT SECTIGS 



THE DROP UNIT SECTION CONTAINS THE COOING THAT CAUSES A OEVlCt 
TO NO LONGER BE TESTED. 



f*GNOU 



LSDU: 



040 
111 
104 
101 
122 
120 
040 
117 
106 
124 
122 
105 
111 
056 
000 



DROP: 



INSERT DROP CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
A "DROP" COMMAND OR A "DODU" MACRO EXECUTION. THE PURPOSE 
OF THIS CODE IS TO DO ANY ^4ECESSARY HOUSEKEEPING AFTFR A 
UNIT HAS BEEN DROPPED. THIS SECTION IS OPTIONAL. 

PRINTF #0R0P,R0 ;REPORT UNIT THAT HAS BEEN OROfPEO. 

MOV RO. ( ) 

MOV <K)RPP, (SP) 

MOV 02. -(SP) 

MOV SP.RO 

TRAP CtPNTF 

ADD •6.SP 

BR EDROP : BRANCH AROUND THE MESSAGE. 

.ASCI2/*A UNIT«D6«A DROPPED FROM FURTHER TESTING. *N/ 



EDROP: 



.EVEN 



EXIT DU 



.WORD J»JMP 
.WORD L100P5-2 . 



ENDDU 



L 10025: 



TRAP 



C»Dl 



115 



DHu ii ruNC rsr pmi4 
DROP UNIT secriON 

7297 
7296 
7299 
7500 
7501 
7502 
7505 
7504 
7505 
7506 
7507 
7508 
7509 
7510 
7511 

7512 050540 
050540 

7515 
7514 
7515 
7516 
7517 
75ia 
7519 
7520 

7521 050540 

050540 000167 
050542 000000 

7522 
7525 
7524 
7525 

7526 050544 
050544 

050544 104452 

7527 
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FVTD.AOD 



.S8TTL AOO UNIT SECTION 



THE AOO-'JNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE. 



BGNA' I 



L$AU: 



INSERT ADO CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
AN "ADO" COMMAND. THE PURPOSE OF THIS CODE IS TO DO ANY 
HOUSEKEEPING THAT MAY BE NFCESSARY AFTER A UNIT MAS BEEN ADDED. 
THIS SECTION IS OPTIONAL. 



EXIT 

.EVEN 
ENDAU 



AU 



.WORD 
.WORD 



J»JMP 
L 10024 -a 



w 100241 



TRAP 



C»rtj 



Ji5 



OMU-ll TUNC TST P<MIT4 
MMOwMt TEST 



7529 
7550 
7551 
7552 
7555 
7554 
7555 
7556 
7557 
75SS 
7559 
7540 
7541 
7542 
7545 

7544 

7545 
7546 
7547 
7548 
7549 
7550 
7S51 
755? 
7553 
7354 
7355 
7S56 
7557 
7558 
7559 
7360 
7561 
7S62 
7365 
7564 
7365 
7366 
7367 
7368 
7369 
7370 
7371 
7372 
7375 
7374 
7375 
7376 
7377 
7378 
7379 
7380 
7381 
7382 
7583 
7384 



MACRO H1200 
• MORA 
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*.E0 r*i 



050622 
050626 
050652 
050656 
050640 
060644 
030632 
030654 
030660 
030664 
050666 
050672 



030674 
030700 
030706 
030712 
030716 
030722 
030724 
030730 
030732 



.SBTTL 

: 



HARDUARE TEST 



AORA 



»♦ 

!* 
J* 
5* 
J* 
!♦ 
S* 
S* 



REGISTER ADDRESS TEST 

THIS TEST VERIFIES THAT THE DEVICE REGISTERS WILL RESPOND TO THE PROPER 
UNIBUS HANDSHAKING SIGNALS WHEN ACCESSED. IF THC DHUll DOES NOT RESPOND 
TO THE ACCESS ATTEMPTS (IF THE DMUll IS AT THE WRONG ADDRESS. FOR EXAMPLE) 
THE 004 BUS TIME-OUT TRAP IS DETECTED BY THIS ROUTINE AND AN ERROR 
IS REPORTED. THIS TEST IS PERFORMED ON LINE 0 ONLY. 



050546 








BGNTST 




050546 














000001 






TNUM 


TtVjn ♦ 1 


050546 


012767 


000001 


151504 


MOV 


•TNUM.TSTNUM 


050554 


012767 


177777 


151436 


MOV 


•-l.CTRLCF 


050562 


012767 


000145 


154526 


MOV 


«101. .ERRNBR 


050570 


012767 


010047 


154522 


MOV 


«EM0103.ERRMSG 


050576 


012767 


015500 


154516 


MOV 


«£R0101.ERRBLK 










I SET UP TO CATCH ANY 004 TRAPS 


050604 


016767 


147174 


151444 


MOV 


4,TP4VEC 


050612 


012767 


027404 


147164 


MOV 


#TP4RTN,4 


050620 


005005 






CLR 


R5 



016700 
012701 
004767 
103402 
052705 
042767 
OlOtOO 
016701 
004767 
103403 
052705 
0004^4 



012702 
016767 
016700 
012701 
004767 
103402 
052705 
010100 
016701 



151552 
031020 
166420 

100001 

000017 000146 

151320 
16657? 

100002 



000010 

151274 000110 
000104 
031020 
166354 

100001 

000060 



Tl: : 

» INCREMENT THE ASSEMBLY TIME TEST COUNTER. 

I SET UP THE TEST NUMBER. (1) 

J INDICATE THAT UE ARE IN A TEST. 

J SET THE TEST ERROR NUMBER IN THE TABlE. 

J SET UP THE TEST FAILURE MESSAGE IN THE TABLE, 

; SET -UP THE ERROR ROUTINE IN THE ERROR TABLE. 



sSAVE THE EXISTING 004 TRAP VECTOR. 

:SET 004 TRAP VECTOR TO OUR SERVICE RTN ADR. 

s CLEAR THE ERROR FLAGS. 



t HERE BEGINS THE LOOP TO TEST THE REGISTERS FOR A LINE. 

J FIRST TEST THE CSR AND SET THE INO.AOR.REG CI.A.R) FIELD, 

MOV CSRA.RO sSET UP CSR AS THE CKTRAP MOVE SOURCE. 

MOV •52»,R1 ;SET uP DESTINATION LOCATION FOR CKTRAP MOVE. 

JSR PC. CKTRAP ;MOVE AND CHECK FOR TRAP. 

BCS 4« I IF NO TRAP. BYPASS ERROR. 

BIS «100001.R5 I SET FATAL READ ERROR FLAGS. 

BIC OIT.S?* iCLEAR THE I.A.R FIELD OF THE CSR DATA. 

MOV Rl.RO lUSE OLD DESTINATION FOR bOURCE OF CKTRAP MOVE. 

MOV CSRA.Rl {SET UP CSR AS THE CKTRAP MOVE DESTINATION. 

JSR PC, CKTRAP sMOVE AND CHECK FOR TRAP. 

BCS 6* ;IF NO TRAP. BYPASS ERROR. 

BIS #100002, R5 8 SET FATAL WRITE ERROR FLAGS. 

BR AOi lEXlT AND REPORT FATAL ERROR. 



4$: 



t 

6$: 
8$: 



NOW. WE TEST EACH REGISTER FOR THIS LINE. 

MOV 06.. sINIT REGISTER COUNTER TO 8. 

MOV CSRA.50* jINITIALIZE THE REGISTER POINTER. 

MOV 50*. RO »SET UP REGISTER AS THE SOURCE FOR CKTRAP MOVE. 

MOV #52$. Rl ;SET UP LOCAL STORAGE AS THE OES FOR CKTkAP. 

JSR PC. CKTRAP tPERFORH THE MOVE, CHECK FOR TRAP. 

BCS 10$ sIF NO TRAP, BYPASS THE SETTING OF ERROR ^LAGS. 

BIS <^100001,R5 sSET FATAL READ ERROR FLAGS. 

10*; MOV Rl.RO jUSE OLD DEST AS SRC FOR CKTRAP MOVE. 

MOV 50$, Rl jSET UP REGISTER AS THE DEST FOR CKTRAP MOVE. 



Ki5 



M!3(oii«f^sT 



TSI PART4 
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030736 


004 767 


166314 




JSR 


PC.CKTRAP 


7366 


030742 


103402 






BCS 


12» 


7387 


030744 


052705 


100002 




BIS 


♦100002. R5 


7368 


030750 


005267 


000042 


12$: 


INC 


b0$ 


7369 


030754 


0C5267 


000036 




INC 


50* 


7390 


030760 


005302 






DEC 


R2 


7391 


030^62 


001351 






ONE 


8S 



7392 
7393 
7394 
7395 
7396 
7397 

7398 030764 

7399 030772 

7400 030774 
7401 

7402 
7405 

7404 030776 
050776 

7405 
7406 
7407 



PERrORM THE MOVE. CHECK FOR TRAP. 

IF NO TRAP. BYPASS THE SETTING OF ERROR FLAGS. 

SET FATAL IWITE ERROR FLAGS. 

INCREMENT THE REGISTER 

POINTER BY 2. 
COUNT THE REGISTER. 

jLOOP TO TEST THE NEXT REGISTER ADDRESS, 



7406 
7409 

7410 
7411 
7412 
7413 
7414 
7415 
7416 
7417 
7416 



031000 
051000 
051004 
051006 
051012 
031012 
051014 



031016 
031020 



031022 
031026 
031026 
031026 



016767 
005705 
100012 



104460 



016700 
104451 
005067 

104444 

000402 



000000 
000000 



005067 
104401 



DONE CHECKING DEVICE REGISTER ADDRESSES. 
REPORT ANY ERRORS AND EXIT. 



151266 147012 40$: 



MOV 
TST 
BPL 



TP4VEC,4 

R5 

60* 



sRESTORF THE NORMAL 004 TRAP VECTOR, 
s CHECK THE ERROR FLAGS. 
sEXIT ROUTINE IF NO ERRORS. 



REPORT "DEVICE REGISTER ACCESS TEST FAILED' 
ERROR 



TRAP 



CtERROR 



151172 
151206 



DOOU UNITN 



CLR CTRlCF 
DOCLN 



BR 



60$ 



sDROP THIS UNIT FROM FUTHER TESTING. 

MOV UNITN, RO 
TRAP C$DOOU 

t INDICATE NO CTRL-C ABORT FROM TEST. 

: ABORT THIS SUB PASS. 

TRAP CfOCLN 

i 



LOCAL STORAGE. •*•♦•♦••**♦♦*•♦♦*♦♦♦*•♦*♦*»♦*»»*♦**»*»*•* 

50$: .WORD 0 :STORAGE FOR THE SOURCE OR DEST OF THE CKTRAP MOVE. 

52$: .UORD 0 tSTORAGE FQR THE SOURCE OR DEST OF THE CKTRAP MOVE. 

J *««*«4i««*«i««**«***« END A************************************************ 



151172 



60$: CLR CTRLCF 

ENDTST 



: INDICATE THAT UE ARE NOT UITHIN A TEST. 

L 10025: 



TRAP C$eTST 



Lib 



7420 
7421 
7422 
7425 
7424 
7425 
7426 
7427 
742S 
742«» 
7450 
7431 
7452 
7455 
7454 
7455 
7456 

7457 



7458 
7459 
7440 
7441 
7442 
7445 
7444 
7445 
7446 
7447 



7449 
7449 
7450 



7451 
7452 
7453 
7454 
7455 
7456 
7457 
7456 
7459 
7460 
7461 
7462 
746S 
7464 
7465 
7466 
7467 



051050 
051050 
051050 
051030 
051054 

051056 



031044 
031052 
031054 
031054 
031056 
031060 
031060 
051062 
051062 
051064 
031064 
051066 

0S1070 
031076 
031104 
031112 
OS 1120 



031124 
031150 
051132 



IS MAR 84 09:48 PAGE 132 



,SBTTL HARDWARE TEST 



<iEO IVi 



KBECMO 



KEYBOARD ECHO TEST - 
THIS IS A TEST UHICH PUTS UARTS FOR THE ACTIVE LINES INTO REMOTE 
LOOPBACK MODE. THE ACTIVE LINE UARTS ARE SET UP WITH A BAUORATE 
WHICH IS SPECIFIED BY THE OPERATOR. THIS TEST SETS UP THF LINES 
FOR: 1 STOP BIT. NO PARITY AND 8 BITS/CHARACTER. 
THE TEST EXECUTES INDEFINITELY UNTIL TERMINATED BY THE OPERATOR. 

THIS TEST CAN BE USED FOR LOOPING BACK TERMINAL KEYBOARD INPUT ONTO 
A TERMINAL CRT OR IT CAN BE USED AS A GENERAL LOOPBACK METHOD FOR 
TESTING COMMUNICATIONS LINKS TO THE OUT FROM THE OTHER END OF THE 
CHANNEL. OTR AND RTS ARE SET ON THE SELECTED LINES DURING THIS 
TEST TO ALLOW THE TESTING OF MODEM LINKS. 



012700 
104441 

000002 
012767 



126727 
001402 

104432 
000212 

104450 

103402 

104432 
000202 

012767 
012767 
012767 
012767 
005067 



004 767 
105402 
000167 



000240 

000002 151214 
151124 000005 



BGNTST 
SETPRI 



«PRI05 



TNUM TNUM ♦ 1 
MOV #TNUM.TSTNUM 



T2: : 

;ALLOW LTC INTERRUPTS. 

MOV «PRI05,R0 
TRAP CtSPRI 

J INCREMENT THE ASSEMBLY TIME TEST COUNTER. 

;SET UP THE TEST NUMBER. (94) 



VERIFY THAT THE TEST SHOULD BE PERFORMED. MUST HAVE THE FOLLOWING; 
KEYBOARD ECHO LOOPBACK SELECTED. 
MANUAL INTERVENTION ALLOWED. 



CMPB 
BEQ 
EXIT 



L0PBCK,#5 
2$ 

TST 



2»i 



MANUAL 
BCOMPLETE 



4t 



177777 151122 

000001 154210 

022271 154204 

015022 154200 
151554 



166206 
000120 



4«: 



EXIT 



MOV 
MOV 
MOV 
MOV 
CLR 



TST 



#-l.CTRLCF 

*1.ERRTYP 

»940l..ERRNBR 

«EM9401.ERRMSG 

ERSMRF 



sTEST THE LOOPBACK TYPE INDICATOR. 

jKBD ECHO LPBCK SELECTED? YES. CONTINUE TEST. 

sNO. ABORT THE TEST. 

TRAP C»EXIT 

.WORD L 10026 
t CHECK FOR MANUAL INTERVENTION ALLOWED. 

TRAP CtMANI 
sMANUAL INTERVENTION ALLOWED? YES. DO TEST. 

8CS 4$ 

jNO, ABORT THE TEST. 

TRAP C»EXIT 
.WORD L 10026 

(INDICATE THAT WE ARE IN A TEST. 
{SET ERROR TYPE AS FATAL IN ERROR TABLE. 
tSET THE FIRST ERROR NUMBER IN ERROR TABLE. 
sSET ERROR MESSAGE ADDRESS IN ERRTBL. 
jINITIALIZE THE "REPORT ERROR SUMMARY" FLAGS. 



RESET THE DU; TO A KNOWN STATE. REMOVE THE STATUS COOES FROM THE FIFO. 
CLEAR TX AND RX INTERRUPT ENABLE BITS IN THE CSR. 
: THIS SUBROUTINE REPORTS ERROR *>>>> 9401 **«<. 



JSR 
BCS 
JMP 



PC, CLNRST 
60$ 



I RESET THE OMU-ll, REPORT ANY ERRORS FOUND. 
sSKiP EXIT OF TEST IF NO FATAL ERROR FOUND. 
;RESET FAILURE. ABORT THIS TEST. 



PRINT THE TEST NAME. 



M15 
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746<> 
7470 
7471 
7472 
74 75 
7474 
7475 
7476 
7477 
747* 
7479 
7480 
74§l 
7482 
/469 
7484 
7485 
7486 
7487 
7486 
7489 
7490 
7491 
7492 
7495 
7494 
7495 
7496 
7497 
7498 
7499 
7500 



051156 
051136 
051142 
051146 
051152 
051154 
051156 



7501 
7502 
7505 
7504 
7505 



7506 
7507 



051162 
051166 
051170 
051172 
051174 
051176 
051200 
051202 
051204 
051210 

051214 
051220 

051224 
051250 



091254 
051242 
051242 
051244 
051246 
051250 
0512S2 
051254 
05L256 



051256 
051256 
051262 
03L264 
031270 
031270 
031270 



012746 
012746 
012746 
010600 
104417 
062706 



013022 
005550 
000002 



000006 



PRINTF •Er0503.«£n9401 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



dEM940l . 
»EF0503. 
02. (5P) 
SP.RO 
C»PNTF 
06, SP 



<SP) 
fSP) 



t SET UP THE OUT UARTS WITH THE PROPER LINE PARAME'^ERS. 
{ GET THE DESIRED BAUORATE FROM THE OPERATOR. 
CALCULATE PROPER OUT LPR CONTENTS. 
SET UP THE OUT LPR REGISTERS. 
GET THE PROPER OUT LNCTRL REGISTER CONTENTS. 
SET UP THE OUT LNCTRL REGISTERS. 



004767 
010100 
006501 
006501 
006501 
006501 
050100 
000500 
042700 
052700 

016705 
004767 

012700 
004767 



167140 



000577 
000050 

150752 
175672 

011504 
175652 



JSR 


PC.GETBDR 


MOV 


Rl.RO 


ASL 


Rl 


ASL 


Rl 


ASL 


Rl 


ASL 


Rl 


BIS 


Rl.RO 


SUAB 


RO 


BIC 


#377. RO 


BIS 


•30. RO 


NOV 


ACTLNS.R5 


JSR 


PC.UTULPR 


HOV 


411304.ro 


JSR 


PC.UTULNC 



;GET DUPLICATE COPIES OF BAUDRATE CODE 
; IN THE UPPER BYTE OF THE NEW 
! LPR CONTENTS. 

; SET UP 1 STOP BIT. NO PARITY. 8 BITS/CHAR 
; IK THE LPR CONTENTS. 

sGET THE ACTIVE LINES BIT MAP. 

J SET UP THE OUT LPR REGISTERS FOR ACTIVE LINES. 

•.SET UP DTR. RTS. REMOTE LPBK. AND RX ENABLE. 
:SET UP THE OUT LNCTRL REGS FOR ACTIVE LINES. 



I ♦ 

i 



MAIT FOR THE OPERATOR TO TERMINATE THE TEST. 
PROMPT "TYPE <CR> TO TERMINATE THE TEST;" 



012767 000001 150766 

104443 
000404 
002230 
000130 
015457 
000001 



NOV 
GNANIL 



41.GMANU0 sSET UP DEFAULT ANSWER TO YES. 

TERMSG .GMANUO . 1 . YES 



100001: 



TRAP 
BR 

.WORD 
.WORD 
.WORD 
.WORD 



CIGNAN 
100001 
GMANWD 
TICODE 
TERMSG 
I 



012700 
104441 

005067 



104401 



000340 
150730 



; WE GOT A RESPONSE FROM THE OPERATOR. SO TERMINATE THE TEST. 
60$: SETPRI dPRIO? tOISABLE ALL INTERRUPTS. 



CLR CTRLCF 
ENOTST 



NOV •PRZ07.R0 
TRAP CISPRt 
{INDICATE THAT WE ARE NOT WITHIN A TEST. 



L 10026: 



TRAP 



C»ETST 



Ni5 



OHU 11 TUNC TST P/WT4 
M/MK>WAAF TtST 



7509 
7510 
7511 
7512 
7513 
7514 
7515 
7516 
7517 
75ia 
7519 
7520 
7521 
7522 
7523 
7524 
7525 
7526 
7527 
7528 
7529 
7530 
7531 
7532 
7533 
7554 
7535 
7536 
7537 
7538 
7539 
7540 



7541 



7542 
7543 
7544 
7545 
7546 
7547 
7548 
7549 
7550 
7551 



7552 
7553 
7554 



7555 
7556 



031272 
031272 
031272 
031272 
031276 

031300 



031306 
031314 
031516 
031316 
031520 
031322 
031322 
031324 
031324 
031326 
031326 
031330 



012700 
104441 
000003 
012767 



126727 
001402 

104432 

000702 

104450 
10340? 

104432 

000672 



mCRO ni200 
- MOOLPB 
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MOOLPB 



000240 

000<X)3 150752 
150662 000004 



MODEM LOOPBACK TEST - 
THIS TEST IS USED TO MOVE DATA THROUGH A MODEM WHICH IS CONNECTED TO 
ONE OF THE DEVICE SERIAL PORTS. THIS TEST IS RUN ONLY If MODEM 
LOOPBACK IS SPECIFIED. THIS TEST UTILIZES THE FOLLOWING OPERATOR 
DIALOGUE : 

MODEM BAUORATE IN BPS: (0) 1200 ? 
TYPE <CR> WHEN MODEM LINK ESTABLISHED: (L) Y ? 
MODEM STATUS SIGNAL REPORT: 

LINE ON: OSR-N. RI-N. DCO-N, CTS-N 
REPEATED FOR EACH ACTIVE LINE 
NUMBER OF 256 BYTE DATA PATTERNS TO SEND ON EACH SELECTED LINE 

(1 255. 0-SENO UNTIL tC): (D) I ? 
PRINT MODEM STATUS SIGNAL REPORT AFTER EACH PATTERN: CD v ? 

AT THE COMPLETION OF SENDING THE SPECIFIED NUMBER OF DATA PATTERNS THE 
TEST ISSUES THE FOLLOWING PROMPT: 

EXIT THE TEST CN « LOOP BACK TO SEND MORE DATA): (L) Y ? 

IF EXTENDED ERROR REPORTING IS ALLOWED, A REPORT IS PRINTED AT THE END 
OF EACH DATA PATTERN WITH THE FOLLOWING FORMA f : 

MODEM LOOPBACK TEST STATUS REPORT: PATTERN ONNN (D) COMPLETED. 

THIS TEST IS PERFORMED USING 8 BITS PER CHARACTER. 1 STOP BIT. AND NO 
PARITY, THIS TEST DOES NOT SUPPORT SPLIT SPEED. ALL SELECTED LINES 
ARE TESTED AT THE SELECTED BAUORATE. AN ERRQR SUMMARY IS REPORTED AT 
THE END OF THE TEST IF ANY LINES HAVE EXCEEDED THE NUMBER OF INDIVIDUAL 
DATA ERRORS TO REPORT AS SELECTED IN THE SOFTWARE P- TABLE DIALOGUE. 

BGNTST 

T5:: 

SETPRI «PRI05 ; ALLOW LTC INTERRUPTS. 

MOV ftPRIOS.RO 
TRAP C t SPRI 

TNUM TNUM ♦ 1 j INCREMENT THE ASSEMBLY TIME TEST COUNTER. 

MOV ♦TNUM.TSTNUM iSET UP THE TEST NUMBER. (89) 

I VERIFY THAT THE TEST SHOULD BE PERFORMED, MUST HAVE THE FOLLOWING: 
: MODEM LOOPBACK SELECTED. 

MANUAL INTERVENTION ALLOWED. 



I 

i - 



21: 



CMP8 L0P8CK.*4 
BEQ 2$ 
EXIT TST 



MANUAL 
BCOMPLETE 
EXIT TST 



4$ 



051532 012767 177777 150660 4$: 



MOV 



♦-1.CTRLCF 



jTEST THE LOOPBACK TYPE INDICATOR. 

jMODEM LOOPBACK SELECTED? YES. CONTINUE TEST, 

:NC. ABORT THE TEST. 

TRAP C»EXIT 

.WORD L 10027 
s CHECK FOR MANUAL INTERVENTION ALLOWED. 

TRAP CI MANX 
;MANUAL INTERVENTION ALLOWED? YES, 00 TEST. 

BCS 4t 

sNO. ABORT THE TEST. 

TRAP C»£XIT 
.WORD LlOOjr . 

; INDICATE THAT WE ARE IN A TEST. 



nib 



7557 
755e 
7559 
75*0 
75*1 
'56.' 
75*5 
7564 
7565 
7566 
7567 
7560 
7569 
75 "0 
7571 
7572 
7575 
757* 



7575 



0S1S40 
051 S46 
051554 
051562 



7576 



7577 



7^78 
7579 
7560 
7581 
758? 
7585 
7564 
7585 
7586 



7587 
7588 
75«9 

7«;9e 

75<>l 



051566 
091572 
051574 



051400 
051400 
051404 
051406 
051406 
051412 
051416 
051422 
051426 
051450 
051454 
0S1454 
0S1440 
051444 
051450 
051454 
051456 
051462 
051462 
051466 



0514 70 
051474 



05i500 
0S1500 
051504 
051510 
051514 
0S1516 
051520 



012767 
012^67 
012767 
005067 



004767 
105402 
000167 



012700 
104441 

012746 
012746 
016746 
012746 
104457 
062706 

012746 

012746 

016 

012746 

104457 

062706 

01? 700 
104441 



012700 
004767 



012746 
012746 
012746 
010600 
104417 
062706 



H4CR0 H1*»00 
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000001 15S746 

021505 155742 

011146 155756 
151112 



165744 
000610 



000540 



000 SOC 
027426 
150546 
000005 

000010 

000500 
027216 
150516 
000005 

000010 

000200 



005502 
165660 



011146 
005550 
000002 



000006 



MOV •l.ERRTrP 

nOV •0901 . .tMINBR 

NOV •EH8901.ERRnSG 

CLR ERSMRT 



iSET ERROR TvPE Ab FATAL IN ERROR TABLE. 
iSET THE FIRST ERROR NUMBER IN ERROR TABLE. 
I SET ERROR rCSSAGE ADDRESS IN ERRTBL. 
lINITIALiZE THE "REPORT ERROR SUMHAPf" FLAGS. 



RESET THE DOT TO A KNOUN STATE. REMOVE TmE STATUS COOES FROM THE f UO. 
CLEAR TX AND RX INTERRUPT ENABLE BITS IN THE CSR. 
THIS SUBROUTINE REPORTS ERROR »«>>» 8901 *««<«. 

JSR PC.CLNHST , RESET THE OHU-ll. REPORT ANt ERRORS FOUND. 

DCS ..6 jSKiP EXIT OF TEST If NO FATAi ERROR FOUND. 

JMP 60t iRESET FAILURE. ABORT ThIS TEST. 



I SET UP FOR TRANSMIT AND RECEIVE INTERRUPTS. 

* SETPRI •PRIO? {DISABLE ALL INTERRUPTS. 

MOV 
TRAP 

SETVEC TXVECA.4TXDMA.4PRI06 {SELECT DMA TX INT SERVICE RTN. 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

{SELECT RX INT SERVICE RTN. 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

{AitOw INTERRUPTS. 

MOV 
TRAP 



SETVEC RXVECA.MXCMRS.4PRI06 



SETPRI •PR 104 



{ CLEAR THE CUrfXATlvE ERROR COUNTERS (ONE FOR EACH LINE). 

* MOV •ERCNTB.RO 

JSR PC.CLR16W (CLEAR THE RX ERROR COUNTERS TABLE. 



PRINT TME THE TEST NAME. 

PRINTF •EroS05.«EH8901 



«0V 

MOV 

MOV 

MOV 

TRAP 

ADD 



PREPARE TO CALL TME SET UP ROUTINE. 

GET TME DESIRED BAUORATE TROM THE OPERATOR. 
CALCULATE PROPER OUT iPR CONTENTS. 

CALCULATE THE PROPER RX MME 0l>T VALUE f OR »MlS SPtTD. 



•PRI07.R0 
CISPRI 

•PRI06, -CSP) 
♦TXOMA. (SP) 
TXVECA. (SP) 
•5, (SP) 
CISVEC 
•10. SP 

•PRI06. -(SP) 
•RXCHRS, (SP) 
RXVECA, -(SP) 
•5.(SP) 
CISVEC 
•10, SP 

•PRIO4,R0 
CISPRI 



•eHe9oi.(SP> 

•€^0505, (3P> 
•2,(SP) 
SP.RO 
CIPXTr 

•6.SP 



CLb 



-'5V 

7505 

7599 
7599 
7600 
7601 
7602 
7605 
7604 
T605 
7606 
7607 
7600 
7609 
7610 
7611 
7612 
761S 
7614 
7615 
7616 
7617 
7618 
7619 
7620 
7621 
7622 
762 S 
7624 
7625 
7626 
7627 
7620 
7629 
7650 
7651 
7652 
7653 
7634 
7655 
7656 



051524 
051550 
051552 
051554 
051556 
051540 
051542 
051544 
051546 
051552 

051556 
051562 



051570 
051572 
051576 
051600 
051602 
051604 
031606 

051610 
051612 
051616 
051620 
031622 



7657 
7658 
7639 
7640 
7641 



051650 
051654 
031640 



051644 
051652 
051652 
051654 
051656 
051660 
051662 
051664 
051666 



004767 
010100 
006501 
006501 
006501 
006501 
050001 
000501 
042701 
052701 

004767 
012767 



005005 
012702 
010204 
105505 
110524 
105705 
001574 

010205 
012700 
012524 
005500 
001575 



lo65/6 



000577 
000050 

166754 
177400 



005602 



150442 



I ♦ 
i 

t - 



61: 



000020 



6(1 



051624 012705 000400 



UP THE Blf MAP OF UNUSED TX/RX BITS. 


JSR 


PC.GETBOR 




NOV 


Rl.RO 










ASL 


Rl 




ASL 


Rl 


jGET DUPLICATE COPIES Of BAUORATE CODE 


ASL 


Rl 


1 IN THE UPPER BYTE QT THE NEW 


BIS 


RO.Rl 


1 LPR CONTENTS. 




Rl 




BIC 


A377 Rl 


tSET UP 1 STOP BIT NO PARITY 8 BIT<k/fHAR 




0SO Rl 


1 IN The LPR CONTENTS 




PC GET TIM 


iGET TIME OUT BASED ON MINIMUM BAUDRATF TN IJ^F 


liOV 


•177400 IBM 


iFQRM BIT MAP Or UNUSED TX/RX BITS 


UP A 


256 BYTE DATA 


PATTERN. 


CLR 


RS 


■PREPARE TO START DATA PATTERN AT 255. 


NOV 


•BUTBAS.R? 


iGET The base Of THE DATA PATTERN BUTFER 


MOV 

' "WW 


R2.R4 






R3 


iGET THE NEXT BYTE OF THE DATA PATTERN 


MOVB 


RS CR4)* 


iURITE A BYTE Of THE DATA PATTERN 


TSTB 


RS 


jCMECK FOR DONE WRITING DATA PATTERN. 


BNE 


6« 


tDATA PATTERN DONE? NO. LOOP TO DO N6xT ByTE. 






lYES. URITE 32 BYTE OVERFLOW REGION. 


MOV 


R2.R5 


{PREPARE SOURCE POINTER. 


MOV 


•16. .RO 


, PREPARE LOOP COUNTER. 


MOV 


(R5)..(R4)» 


iWRITE 2 BYTES OF THE OVERFLOW PATTERN. 


DEC 


RO 


iCOUNT THESE 2 BYTES. 


BNE 


6t 


ii6 WORDS WRITTEN? NO, LOOP TO WRITE ANOTHER. 






lYES. COMPLETE DATA PATTERN IS DONE. 


MOV 


•256. .R5 


;SET DATA PATTERN LENGTH TO 256. 



012700 
016705 
004767 



011000 
150532 
175222 



SET THE OUT RT5 AND OTR BITS FQR THE ACTIVE LINES. 

MOV •IIOOO.RO jSPECirr TO SET RTS ANO OTR, 

MOV ACTLNS.R5 j SPECIFY ACTIVE LINES. 

JSR PC.UTWLNC ;SET OUT RTS AND DTR ON ALL ACTIVE LINES. 



012767 000001 150556 

104445 
000404 

002250 
000150 
015074 
000001 



i • 

i 
( 
; 



WAIT FOR THE OPERATOR TO ESTABLISH THE MODEM CONNECTION. 
PROMPT "TYPE «CR> WHEN MODEM l INK ESTABLISHED:" 

MOV aLGMANwO I SET UP DEFAULT ANSWER TO yFS. 

GMANIL EMLMSG.GMANWD.l.tES 



lOOOOf t 

IrEPORT the STATE OF THE MODEM STAIUS SIGNALS. 

» SET DEFAULT OF PRINTING MODEM STAIUS AFTER EVfRt DATA PATTERN. 



TRAP 
BR 

.WORD 
.WORD 
.WORD 
.WORD 



CICHAN 
lOOOOf 
CMANWD 
TtCODC 
EMI MSG 
1 



051666 004767 167S52 



JSR 



PC.MSSRPI 



7644 
7b45 
7646 
764' 
7646 
7649 



0516 012^67 



7650 
7651 
7652 
7655 
7654 
7655 
76b6 
765 7 
7656 



7659 
7660 
7661 
7662 
7665 
7664 
7665 
7666 
7667 
7666 
7669 
7670 
7671 
7672 
^675 
7674 
7675 
7676 
7677 
7678 
767«* 
7680 
7661 
7662 



051700 
051706 
051706 
051710 
051712 
051714 
051716 
051720 
051722 
051724 
051726 
051726 
051752 
051754 



051740 
051740 
051742 
051744 
051746 
051750 
051752 
051754 



031754 
OS1756 

051762 
051766 

051770 
0S1774 
052000 



0 520 12 
052016 



H4Jg0^P^OO 15 
000001 150544 
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HOV 



•l.PMS»LG 



ASK OPERATOR TOR T»« NUMBER Of DATA PATTERNS TO SE^NO. 

PROHPT: "NUNBER OF 256 BtTE DATA PATTERNS TO SEND ON EACH bElECTED LINE 

(1 255. 0-SEND UNTIL »C^: (D) I ?• 



012767 000001 150522 lOS: 

104445 

000406 

002250 
000052 
015224 
000577 
000000 
000255 



016704 
005005 
005067 



104443 
000404 
002244 
000150 
015552 
000001 



005205 
004 767 

004767 
105 L 10 

004767 
004767 
012767 



052006 004767 



005767 
001404 



NOV 
GNANIO 



150276 
150264 



MOV 
CLR 
CLR 



•l.GNANUD jSET DEFAULT NUMBER OT PATTERNS TO I. 

NDWSG. GliANUO. 0.577.0, 255. TFS 

TRAP 
BR 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORO 

lOOOU; 



CIGMAN 
lOOOlt 
GMANUD 
TICOOE 
NDPMSG 
577 

TILOLII 
TtHlLiM 



GMANUD, R4 
R5 

TERROR 



:CLEAR THE DATA PATTERN COUNTER. 
jCLEAR the 'AT LEAST ONE ERROR FLAG 



ASK IF MODEM STATUS SIGNALS SHOULD BE REPORTED AFTER EACH DATA PATTERN. 
PROMPT; "PRINT MODEM STATUS SIGNAL REPORT AFTER EACH PATTERN: (L) t ? 
USE LAST RESPONSE AS DEFAULT (DEFAULT OF >ES THE FIRST TIME). 



GMANIL PMSMSG.PMSFLG. 1 . lES 



10002 »! 



TRAP 
BR 

.UORD 
.UORD 
.WORD 
.WORD 



CtGMAN 
10002 « 
PMSFLG 
T»COOE 
PMSMSG 
1 



166752 
170662 



171140 
166614 

021506 155510 



SET UP THE DUT AND TX/RX VARIABLES. 
Rl - TX, RX LPR CONTENTS. 

R2 - START ADDRESS OF DATA PATTERN TQ TX/RX. 
R5 • LENGTH OF DATA PATTERN. 
SEND THE DATA. 



21 1 INC R5 

JSR PC.MOOSUP 

JSR PCP^lfO 

BCC 60( 

JSR PC.PURRXB 

JSR PC.INIOMA 

MOV •89C2..ERRNBR 

I ♦ 



iCOUNT THIS DATA PATTERN. 

iSET UP THE DUT AND TX/RX VARIABLES. 

iPURGE THE DUT RECFIVE CHARACTER HfO. 
I ABORT THIS TEST IF FIFO WOULD NOT PURC£. 

t PURGE THE RX CHAR BUFFER IN MEMORt . 
iSENO THE FIRST BATCH OF DATA PATTERN^. 
I SET ERROR NUMBER TO 0905. 



171156 
150206 



, TMl"; ROUTINE REPORTS ERRORS WITH NUMBERS »»»»» 8902 THRU 890? 

JiR PC.ROChRS jREAO and VERIFt THE Rx CHARACTERS. 

TST FERROR |HAS AN ERROR BEEN Df TECTeO ? 

BEQ 13S {BRANCH If IT HASN'T. 



HMOWMC TEST 



PART4 



MACRO MIJOO 
MOOLPB 
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'.EO 



7b9S 
7664 

768» 
7686 

7687 
7688 
7689 

7690 
7fr91 
7692 
■'69S 
7694 
7695 
7696 



052020 092767 OOOlOO 150134 
052026 001430 

092030 012767 021314 153260 ISi: 



052036 004767 174204 



BIT 
8EQ 

nov 



4BIT06.0PTI0N 
16 1 



iMAS EXTENDED E«WC» RtPORriNG BEEN ReOUESTED ? 
{BRANCH TO THE "EXIT TEST ?• QUESTION IF NOT. 



•8908. .ERRNBR iSET ERROR NUMBER TO 8908. 



7697 
7698 
7699 

7700 
7701 
/702 
7703 
7704 
7705 
7706 
7707 
7708 
7709 
7710 
7711 
7712 
7715 



7714 

7715 
7716 
7717 
7718 
7719 
7720 
7 721 
7722 
772S 
7724 
7725 
7726 



032042 
052042 
052044 

052050 
052054 
032056 
052060 
032064 
052070 
052072 



032076 
052100 
052102 
052104 
052106 



052110 
052116 
052116 
052120 
052122 
052124 
052126 
052150 
032152 
032152 
052140 



052142 
052144 

052 IbO 



t THIS ROUTINE REPORTS ERRORS UITH NUMBERS »>>>. 8908 THRU 8911 
i 

JSR PC.TXRRFP jRFPORT rrnAi FRRQRS FROM Rx/Rx. 

t ♦ 

} REPORT END OF DATA PATTERN IF ALLOUtO. 

; "MODEM LOOPBACK TEST STATUS REPOR " : PATTERN »NNN (D) COMPLETED. 
{ REPORT THE MODEM STATUS SIGNAL STATES IF REQUESTED. 



010546 
012746 
012746 
010600 
104415 
062706 
005767 
001402 
004767 



005504 
001405 
100524 
005204 
000722 



PRINTX ♦E0PFMT.R5 



005422 
000002 



000006 
150154 

167126 



TST 
8EQ 
JSR 



pmsflg 

141 

PC.MSSRPT 



MOV 
MO^ 
HOV 
MOV 
TRAP 
ADD 

jCHECK THE "PRINT MODEM STATUS' FLAG. 
{PRINT MODEM STATUS? NO. SKIP PRINTING. 
.-REPORT THE MODEM STATUS. 



R5, (SP) 
»EOPFMT. .f SP> 
•2, -CSP) 
SP.RO 
C»PNTX 
♦6.SP 



012767 000001 150112 16 «: 

104445 
000404 

002250 
000150 
015145 
000001 

026727 150072 000001 
001257 



I IF THERE ARE MORE DATA PATTERNS TO SEND. LOOP BACK TO SEND AGAIN. 

14*; DEC R4 {COUNT THIS DATA PATTERN. 

BEQ 16* jLAST DATA PAT SENT? rES. PROMPT FOR EXIT. 

8PL 12» jNO. CONTINOUS SENDING? NO. SEND NEXT PAT. 

INC R4 ;YES. RESTORE PATTERN COUNTER. 

BR 12» jGO TO SEND NEXT DATA PATTERN. 

I PROMPT FOR EXIT OF THE TEST OR SENDING OF MORE DATA PATTERNS. 
I PROHPT: "EXIT THE TEST (N ' LOOP BACK TO SEND MORE DATA): CD r ? 
; 

MOV ai.GMANMO iSET OfFrtUl T ANSUER TO yFS. 

GMANIL EXTMSG.GMANWO.l.tES 



TRAP 
BR 

.UORC 
.UORD 
.UORD 
.WORD 



CIGMAN 
10003* 
GMANUO 
T I CODE 
EXTMSG 
1 



CMP 
SNE 



GMANWO.dl 
10* 



lOOCSf I 
;CMECK OPERATOR RESPONSE. 

lEXIT RESPONSE? NO, LOOP TO SEND MORE DATA. 
jNO. EXIT ROUTINE. 



005000 

012705 177777 
004767 174712 



I AIL DONE. HAVE BEEN TOLD TO EXIT. 

{ CLEAR DEVICE OTR AND RTS SIGNALS. 

: DISABLE INTERRUPTS. 

! CLEAR THE INTERRUPT VECTORS. 

J REPORT ANr NECESSARt ERROR SUMMARIES. 

CLR RO {INDICATE TO CLEAR ALL LNCTRL BITS. 

MOV 4MAPLNS.R5 {INDICATE TO CLEAR FQfl ALL LINES. 

JSR PC.wrwLNC jClEAR All THE RT5 ANO OTR SIGNAl 'i. 



77J8 


052194 








052134 


012700 


000540 




052160 


104441 




7-'2^ 


052162 








052162 


016700 


150002 




052166 


104456 




7750 


052170 








032170 


016700 


147772 




052174 


104456 




77SI 








77S2 052176 


012 'bf 


021520 


77SS 


052204 


004 767 


171620 


7754 


032210 








032210 


012700 


000540 




05..214 


104441 




7755 
^756 


052216 


005067 


147776 


052222 
052222 
052222 


104401 





60t: 



SETPRI 4PRI07 

CLRVEC TXVECA 

CLRVEC RXVECA 

MOV »8912. .ERRNBR 

JSR PC.REPSMR 

SFTPRl »PRI07 

CLR CTRLCF 
ENOTST 



iDISABLE ALl INTERRUPTS. 

MOV •PRI07,R0 

TRAP CISPPI 

{RETURN TX INT VECTOR 10 UNUSED POOL. 

MOV TXVECA.RO 

TRAP CtCvEC 

{RETURN RX INT VECTOR TO UNUSED POOL. 

MOV RXVECA. RO 

TRAP CICVEC 

{SELECT NUMBER 8912 FOR THE NEXT ERROR REPORT. 
{REPORT ERROR SUMMARIES If CALLED FOR. 
(DISABLE ALL INTERRUPTS. 

MOV CPRI07.ro 

TRAP CtSPRI 
{INDICATE THAT UE ARE NOT WITHIN A TEST. 



L 10027! 



'.€0 206 



TRAP 



C«ETST 



bit. 



PARr4 



77i» 
77S9 
7740 
7741 
7742 
7745 
7744 
7745 
774t, 
774- 
7746 
7749 
7750 

77bl 
7752 



775S 
7754 
7755 
7756 
7757 
7758 
7759 
7760 
7761 
7762 
7763 
7 764 
7765 
7766 
7767 
7768 
7769 
7770 
7771 
7772 
7773 
7774 
7775 
7776 
7777 
7778 
7779 
7780 
7781 
7782 
7783 
7784 
7785 
7786 
7767 
7788 
7789 
7790 
7791 



032224 
032224 

032224 
032224 
032230 



032232 
032240 
032246 
032254 
032262 
052270 



032302 
032306 
032310 



032314 
0S2S22 



032330 
032334 



032344 
032352 



012700 
104441 

000004 
012767 
012767 
012767 
012767 
012767 
012767 



004767 
103402 
000167 



016767 
012767 



005767 
001007 



032336 012767 



012767 
000442 
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'*0 20 J 



000240 



000004 
177777 
000001 
010461 
010174 
014052 



150020 
147752 
153040 
153034 
153030 
153024 



032276 005067 001402 



165030 
001332 



145464 
027404 



147764 

001252 
000021 



147734 
145454 



147656 
001324 



.SBTTL HARDWARE TEST 



OMAADR 



DMA ADDRESSING TEST 
THIS TEST VERIr lES . AS PAR AS POSSIBLE , THAT THE OUT CAN PERFORM A 
DMA FROM A FULL 16 BIT OR 16 BIT ADDRESS. THE TEST RELIES ON FINDING A 
COMPLEMENTARY PAIR OF ADDRESSES BETWEEN THE TOP OF PHYSICAL MEMORt AND 
THE START OF THE TOP OF THE DIAGNOSTIC PROGRAM . 

THIS MAY INVOLVE REMOVING PART OF THE DIAGNOSTIC RUNTIME SERVICES AND 
THEN RESTORING. TmE NUMBER OF BITS THAT HAVE BEEN SUCCESSFULLY TESTED 
WILL BE PRINTED AT TME CONSOLE AT THE END OF THE TEST. IF REQUESTED. 



I* 
s ♦ 



6GNTST 



SETPRI «PRI05 



TNUM «• TNUM * 1 

MOV #TNUM.TSTNUM 

MOV *-l.CTRLCF 

MOV 41.ERRTYP 

MOV #4401. .ERRNBR 

MOV »eM440 1 . ERRMSG 

MOV «ERCS03.ERRBLK 



T4: : 



! ALLOW LTC INTERRUPTS 



MOV 
TRAP 



•PRIOS.RO 
C»SPRI 



J INCREMENT THE ASSEMBLY TIME TES' COUNTER 
SET UP THE TEST NUMBER 
INDICATE THAT WE ARE IN A TEST 
SET ERROR TYPE AS FATAL IN ERROR TABLE 
SET ERROR NUMBER TO 4401 
SET ERROR MESSAGE ADDRESS IN TABLE 

jSELECT TME CORRECT ERROR REPORTING ROUTINE 



ICLEAR TME SUCCESS FLAG TO INDICATE TEST FAILURE IN CASE IT DOES 

* CLR SUCSS s INDICATE FAILURE , IN CASE THE OUT FAILS 

!*RESET THE OUT TO A KNOWN STATE. REMOVE THE STATUS COOES FROM THE FIFO. 

I CLEAR TX AND RX INTERUPT ENABLE BITS IN THE GSR 

* JSR PC.CLNRST jRESET THE OMU , REPORT ANY ERRORS 

8CS .^6 jSKiP EXIT OF TEST IF NO FATAL ERROR FOUND. 

JMP 60* :EXIT THE TEST. FATAL ERROR WAS FOUND. 

i*SET UP THE 004 TRAP VECTOR TO POINT TO OUR TRAP SERVICE ROUTINE. 



MOV 
MOV 



4.TP4VEC 
»TP4RTN,4 



sSAVE TME EXISTING 004 TRAP VECTOR 

8 POINT THE VECTOR AT OUR SERVICE ROiJTINE. 



DETERMINE WHETHER MEMORY MANAGEMENT IS PRESENT 



I - 



TST MMPRES 

BHE It 

MOV »1252,0MTSTA 

MOV *17..BITSTD 

BR 10* 



J IF MEM MGT IS PRESENT THEN 

lAVOIO SETTING THE DMA TEST ADOR FOR 

tA 16 BIT MACHINE. 

»SET UP TMF FIRST DMA TEST ADOR FOR 

lA 16 BIT MACHINE 

jSET TME BITS TESTED TO 16 • 1 

{SINCE MEM MGT ISN'T PRESENT 

8 THERE'S NO NEED TO SET UP TME M£M MOT REGS. 



t ♦ 



052554 012767 005252 14 7640 



I SET UP TME HIGHEST POSSIBLE TEST ADDRESS IN OMTSTA 
i$: MOV •5252. OMTSTA jSFT UP THE FIRST DMA TEST ADDRESS FOR THE 



Hi t> 
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' ' '92 












vie 'O ' 




* / f 








77lK 








770^ 








7707 


rt*3*7n 






/ 1 




Ol 2701 


002124 


















7AAI 


V^fi^ W 


0112700 


000200 
vwcw 


7AAP 




022 701 


002M2 

V*/C 




0S2410 


001372 




' wv^ 
















7806 








7807 


OS2dl2 


012777 

VAC ' » ' 


177600 










7809 








7810 








7*1 1 


V t V 


012700 

VAC ' W 


077406 




w JC^t* 


012701 

VAC ' W A 








0100S1 




7814 


0324 S2 


022 701 


002564 


7815 


032436 


001574 




7816 








7817 








781S 








7819 
















7821 








7833 






on 1 


782 S 








7824 




011^701 


1 A 7ftAO 






WW"* 'Or 












78P7 








7828 








7829 








78S0 








78S1 








78S2 




0 1 P 7#* 7 


\J<C- 1 Owe 


7835 








7SS4 








7855 








7836 


032466 
032466 


104431 






0324 70 


0 1006 7 




/8S7 








7838 








7839 


032474 


012701 


003602 


7840 








7841 


032500 


005004 




7842 


032502 








032502 


012700 


000340 




032506 


104441 




7843 


032510 


005204 




7844 


052512 


005005 





J 18 BIT HACHINE. 
MOV «19..BITSTD iSET THE BITS TESTED TO 18 BITS . I. 

! SET UP THE PARS 0 THROUGH 6 TO RELOCATE TO THE SAME ADDRESS 
; 

CLR RO :SET THE PAGE BASE ADDRESS TO ZERO 

HOV »PAflATB.Rl ;P0rNT \T THE START QT THE PAR ADDRESS TABLE 

2*: HOV R0.a(Rl)» :L0AD THE PAR 

WD 4200. RO sCALCULATE THE NEXT PAGE ADDRESS 

CMP »PAR7A.ftl sLQOP UNTIL PARS O THROUGH 6 

8NE 2% :ARE LOADED. 

1 SET UP THE INPUT/OUTPUT PAGE PAR TO THE TOP 4KU OF PHYSICAL MEhORr 

HOV «177600.aPAR7A tSET PAR 07 TO POINT AT ThE TOP 4KU 

SET UP THE PDRS FOR , NO ABORT /TRAP. UPWARD EXPANSION. 128 BLOC<S PER PACE 



4*: 



HOV 
MOV 
HOV 
CMP 
BNE 



•77406. RO 

4P0RATB.R1 

RO.aCRD* 

•PORATF.Rl 

4$ 



tBIT PATTERN FOR THE POPS 
POINT AT START OF PDR AOOR TABLE 

L03P UNTIL ALL PDRS HAVE 
BEEN SET UP. 



SET THE MEM MGT STATUS REG »3 FOR, 18 BIT AOORESSSING. 

NO UNIBUS MAPPING. NO D SPACE. IN CASE THIS REG EXISTS. 
NOT ALL UNIBUS MACHINES HAVE MEM MGT STATUS REG *3. SO THE CKTRAP ROUTINE 
MUST BE USED TO CATCH AN 004 TRAPS THAT OCCUR IF THE REG DOES NOT EXIST. 

CLR 701 J SET UP THE SOURCE OPERAND 

MOV •70$. RO J SET UP THE SOURCE ADOR FOR THE MOVE. 

MOV MMSRS.Rl sSET UP THE DESTINATION AODR FOR THE MOVE. 

JSR PC. CKTRAP J PERFORM THE MOVE AND CATCH ANT 004 TRAPS. 

TRY AND FIND A COMPLEMENTARY PAIR OF ADDRESSES WITHIN THE HEMORt AND SAVE 
THE CONTENTS OF THE TWO AREAS, THE TEST IS ABANDONED IF A COMPLEMENT AR r 
PAIR MAS NOT BEEN FOUND BEFORE THE AREA OF MFMORt CONTAINING THE 
DIAGNOSTIC IS ENCOUNTERED. 



{ - 

lot I 



«TP4BRT,4 



HEMORt FFREM 



12«; 



MOV 

CLR 
SETPRI 



INC 
CLR 



•BUFBAS.Rl 
R4 

•PR 10 7 



R4 
R5 



-.CHANGE THE 004 TRAP VECTOR TO POINT TO 
sTP4BRT SINCE THIS IS THE ROUTINE ASSOCIATED 
sWiTH THE BYTE SUBROUTIW CKTRPB. 

jGET the address of the first free WORD 

TRAP CJMEM 
MOV RO, FFREM 

:0F MEMORY ABOVE THE DIAGNOSTIC. 

iPOINT AT THE BUFFER WHERt THE CONTENTS OF 
(THE MEMORY BEING READ ARE TO BE SAVED. 
{CLEAR THE COMPLEMENTARr PAIR INDICATOR (CPD 
{DISABLE CLOCK INTERRUPTS 

MOV »PRI07,R0 
TRAP CJSPRI 

{INCREMENT THE CP I 

{INDICATE THAT A SAvE OF ThC DATA AT 



1 ib 



ST PMtIA MACRO M12 
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'O^O 






WWcV 


7AA 7 




nf^A 7* 7 








A1 37rt1 
wlc > vl 


/V^A202 






<W(7A7 












^ OD i 








' 03c 


W9&790 


wVJW^ 






vO«3*w 


rtl 27ftl 


OOVU)2 






A227Ad 


MUWI02 










» o«w 


w J^v 


0O1447 




7H^ 7 




01 6767 


147444 


* v70 


v3c30w 






7ASQ 




006067 


147434 










• vOl 






001104 


7AA^ 








7flA^ 
















' wv<7 


ftTPS7P 


05P767 


176000 


7A^A 








7MA7 




WW L J 






W^CwwC 


004 767 


164710 

XW*» ' *w 




W JCVWW 


WC WVw ' 


147414 


7M70 




t05556 




7*71 








7A7P 








7*75 








7874 








787% 








78 76 




VCC (Or 


0002^2 

VwVC^C 


7877 




no 1 o 1 d 

wwXvX** 




78 78 








78 7<) 


V JCw£"V 


01P767 


0006<^2 

VwVw^C 


7880 


V iif4.W VC 


06P 700 

VwC ' W 


040000 

V**wWw 


7881 


0 52616 


0P0067 
vc wo • 


14 7 564 


7882 


052642 

VwCw^tC 






7883 

• WW^ 


WwC»w^*t 


01P767 

V kC > O ' 


000016 

WVwXO 


7884 

» WW~ 


05P6S2 

Vi7Cw*JC 


0OO716 

VVw f Aw 




788% 








7886 

• ww9 


0326^4 


n05P6 7 
vw Jew » 


1 ^24 56 


7687 


V wc www 


01P70I 


01 0224 


7888 

' www 
















7890 


0S2664 

w«jc; 


006167 

vw*w • 


WW r «p»^ 


7691 








7692 








769S 








7894 








7695 








7896 








7897 


052670 


012700 


005130 


7898 








7899 


032674 


016767 


147522 


7900 


032702 


016 767 


000774 


7*01 









141: 



nOV 416.. R3 

JSR PC.OMBU 

MOV •eUFMIO.Rl 

TST TP4FLG 

BEQ 14$ 

CLR R4 

MOV «BUrBAS.Rl 

CMP 42. R4 

BEQ 17« 

MOV DMTSTA.ODTSTA 
CLC 

ROR OMTSTA 

DEC BITSTO 



t OMTSTA) IS REQUIRED. 

SET THE NUMBER 0^ BTTES TP BE READ 

SAVE TtC DATA CONTAINED AT ADDRESS OMTSTA. 

POINT AT SECOND STORAGE AREA 

IF WE HAVE VALID MEMORY THEN AVCID CLEARING 

THE CPI AND RESE.ING THE SAVE AREA ADOR 

CLEAR THE CPI. 

RESET THE AODR FOR THE SAVED DATA STORE 
IF A PAIR OF COMPLEMENTARY AODRESSSES HAVE 
BEEN FOUND THEN 

GO AND URITE THE TEST DATA TO THESE ADDRS. 
SAVE THE OLD OMTSTA 
CLEAR CARRY READY FOR THE ROTATION 
COMPLEMENT THE OMTSTA TO PRODUCE THE NEXT 

DMA TEST ADOR. 
DECREMENT THE NUMBER OF BITS TESTED COUNT 



! ♦ 



J CMECK THAT THE NEW OMTSTA IS NOT INSIDE THE DIAGNOSTIC PROGRAM 



BIT 4176000. OMTSTA 

BNE 12 » 

JSR PC.DM16B 

CMP RO.FFREM 

BMIS 12* 



1252 



IF IT IS THEN HE RE 



lis THE OMTSTA » 
: SAFE SO. 
:BRANCH AND CONTINUE WITH THE SEARCM 
sCONVERT THE DM1STA TO A PHYSICAL AODR. 
.ARE UE INSIDE THE DIAGNOSTIC REGION ? 
:N0 . THEN BRANCM AND CONTINUE UITH THE SEARCH 



t SINCE UE ARE NOU INSIDE THE DIAGNOSTIC. UE INCREMENT BIT 414 OF ThC OMTSTA 
iPHYSICAL ADDRESSS AND IF UE'RE STILL INSIDE THE DIAGNOSTIC UE ABANDON THE 
{TEST. ONCE UE ARE IN THIS REGION UE ARE ONLY ABLE TO TEST THE LOUEST 14 BITS. 



CMP 
BNE 

MOV 
ADD 
CMP 

BLO 
MOV 

BR 



•252.DMfSTA 
151 

•652, OMTSTA 
•40000. RO 
RO.FFREM 
15« 

•14. .8ITSTD 
121 



15*1 



16 1: 



: ♦ 



INC ERRNBR 
MOV •CM4402.R1 



JMP 



34* 



I IF THE BIT HAS ALREADY BEEN SET THEN 
{ABANDON THE TEST. AFTER REPORTING THE ERROR . 
i BECAUSE NO SUITABLE MEMORY HAS BEEN FOI.MO. 
;SET THE BIT 

:AOD THE BIT INTO THE PHYSICAL AODR 
tIF UE'RE NOW STILL INSIDE THE DIAGNOSTIC THEN 
{REPORT ERROR AND ABANDON THE TEST. 
{OTMERUISE SET THE BITS TESTED TO 14 BITS. 
(CONTINUE UITH THE SEARCH. 

{SET THE ERROR NUMBER TO 4402 

{SELECT MESSAGE TO BE REPORTED. 

t " NO SUITABLE ADOR FOUND. DMA TEST ABORTED 

{JUMP TO THE ERRCM^. 



I WRITE THE TEST DATA INTO THE TUO AREAS JUST FOUND. IF A TRAP OCCURS WHILE 
UE ARE URITING DATA INTO THESE AREAS THEN THE HOST MACHINE IS AT f AULT. 



17»: MOV »SDPBA5.R0 

MOV OMTSTA, OUMY 
MOV ODTSTA. OMTSTA 



(SET UP THE SOURCE AODR TOR THE HOvE AS Ot« 
TEST DATA PAfTERN. 
SAVE THE LOWER OMTSTA 
START WITH THE HIGHER Of THE TWO 
COMPLEMENTARY ADDRESSES. 



Jib 







000020 


nov 


416. .R5 


s<;FT THF MMtFR or DATA RvTF<: m RP lATTTrM 










•1 R5 




012120 


012701 


000540 


MOV 


♦540. Rl 


J SET PRIORITY 7 TO DISABLE THE CcOCK 


032724 


004767 


172254 


JSR 


PC.STPSW 




052730 


005267 


152362 


INC 


ERRNBR 


zSET THE ERROR NUMBER TO 440^ 


032734 


012701 


010272 


HOV 


4EM4405.R1 


: SELECT THE MESSAGE 












"HOST FAILURE URITF FATl Ff) Tn AM AnnP UMTTh 












•HAD BEEN SUCCESSFULLY RFA^ TF^T ARAMnnMFH • 


052740 


004767 


164624 


JSR 


PC.OMRU 


; PERFORM THE TRANSFER 


052744 


005767 


147504 


TST 


TP4FLG 


;EXIT IF HOST FrtltURE 


032750 


001545 




BNE 


16» 


sAND REPORT ERROR. 


052752 


016767 


000722 147242 


MOV 


OUMY.DMTSTA 


jSELECT THE LOWER DMA TEST AODR. 


052760 


012700 


005154 


MOV 


«SDP2B.R0 


; SELECT THE NEXT DATA PATTERN 


032764 


004767 


164600 


JSR 


PC.DMRW 


{PERFORM THE TRANSFER 


052770 


005767 


147260 


TST 


TP4FLG 


sEXiT IF MOST FAILURE 


032774 


001553 




BNE 


16 » 


• 



OMU 11 fUNC 1ST P'>RT4 
HAROWARC TEST 



7902 

7905 

7904 

7905 

7906 

7907 

7909 

7909 

7910 

7911 

7912 

7913 

7914 

7915 

7916 

7917 

7918 

7919 

7920 

7921 

7922 

7925 

7924 

7925 

7926 

7927 

7926 

7929 

7950 

7951 

7952 

7953 

7954 

7955 

7956 

7937 

7938 

7939 

7940 

7941 

7942 

7943 

7944 

7945 

7946 

7947 

7946 

7949 

7950 

7951 

7952 

7953 

7954 

7955 

7956 

7957 

7958 
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OMAAOR - 



<«0 204 



032776 
055002 

055006 
055010 

055014 
033016 
033022 



J SET UP THE OMU TO PERFORM THE DMA. 
I - 



I ♦ 



J SET INTERNAL LOOPBACK. ENABLE THE RECIEVER FUNCTION ON THE LINE. 
I SET THE LPR ON THE LINE TO 58. 4K BAUD. 8 BITS PER CHARACTER. ODD PARITY, 
{ 2 STOP BITS. ENABLE THE TRANSMITTER ON THE LINE. 



005267 
004767 

010102 
012701 

105402 
000167 
010201 



152514 
164774 



010567 
000424 



INC 
JSR 

MOV 
MOV 

BC5 
JMP 
MOV 



ERRNBR 
PC. FIN ACT 

R1.R2 
#EM4404.R1 

. ^6 
30 1 
R2.R1 



SET THE ERRNBR TO 4404 

FIRST FIND AN ACTIVE LINE ON UMICM TO PERFORM 
THE DMA, 

SAVE THE LINE NUMBER ON WHICM THE DMA WILL OCCUR 
SELECT THE MESSAGE. 

•NO ACTIVE LINES . TEST ABANDONED" 
EXIT IF A LINE COULD NOT BE FOUND .AFTER FIRST 
RESTORING THE CONTENTS OF MEMORY. 
RESTORE THE ACTIVE LINE NUMBER. 



i ♦ 



I AN ACTIVE LINE MAS BEEN FOUND 



035024 


012700 


000204 


( - 


MOV 


#204. RO 


jPASS THE LNCTRL CONTENTS 


035030 


004767 


174032 




JSR 


PC.WTWLNC 


INITIALISE THE LNCTRL REGISTER 


033034 


012700 


177670 




MOV 


*177670.R0 


J PASS THE LPR CONTENTS 


033040 


004767 


174052 




JSR 


PC.WTWLPR 


1 INITIALISE THE LPR REGISTER 


033044 


004767 


172560 




JSR 


PC.TXENBL 


J ENABLE TRANSMITTER ON THE LINE 








J INITIATE THE 


DMA 




033050 


016705 


000626 


1 - 


MOV 


00TSTA.R5 


, START FROM THE MICMER OF THE PAIR OF AOOR. 


033054 


012704 


005130 




MOV 


*SDPBAS.R4 


J SET UP THE AOOR OF THE DATA PATTERN 


033060 


010167 


000610 




MOV 


Ri.eot 


{SAVE THE LINE NUMBER FQR THE DMA 


033064 


012767 


000002 000600 




MOV 


#2.70» 


J INITIALISE THE LOOP COUNT 


033072 


012700 


000052 


18(: 


MOV 


♦52.flO 


iSET UP THE LSB'S 


033076 


005003 






CLR 


R3 


{CLEAR THE REG THAT WILL HOLD THE 6 M«iB S 


035100 


012702 


000006 




MOV 


46.R2 


{CONVERT THE OMTSTA INTO 


035104 


006305 




20t: 


ASL 


R5 


jA PHYSICAL ADDRESS WITH 



7959 
79(>0 
7961 
7962 
796S 
7964 
7965 
7966 
7967 
7966 
7969 
7970 
7971 
7972 
7975 
7974 
7975 
7976 
7977 
7978 
7979 
7980 
7981 
7982 
7985 
7984 
7985 
7986 
7987 
7988 
7989 
7990 
7991 
7992 
7995 
7994 
7995 
7996 
7997 
7998 
7999 
8000 
8001 
8002 
800S 
8004 
8005 
8006 
8007 
8008 
8009 
8010 
8011 
8012 
8015 
8014 
8015 



055106 
05^110 
055112 
055114 
055120 
055122 
035126 
05S150 



055142 
053150 



055154 
055160 

055162 
055170 
055174 



053200 
055204 



035214 
055220 



053226 
033250 
033234 
033240 



055242 
033244 

033250 
033256 



035262 
033266 

033270 
035274 
055276 
055500 



006105 
005502 
001574 
052705 
001402 
012700 
060005 
052705 



033154 016777 



012767 
012701 



105777 
100532 

012777 
010577 
110577 



012701 
016702 



004767 
012701 



055224 105110 



010402 
012704 
004767 
010204 



005005 
012705 

012767 
012701 



017702 
100067 

012700 
040200 
001011 
004767 



MACRO mzoo 



000100 
000025 
000200 
000554 



JIBr' 
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%0 205 



010465 
010426 



147034 



000020 
147016 
147014 



170144 
146770 



033210 005267 152102 



173572 
010522 



000005 
164216 



000200 

010467 
010576 



146714 
170301 
171254 



147056 
152146 



147026 



ROL R3 

DEC R2 

BNE 201 

BIT »100.R5 

BEQ 22* 

nOV *25.R0 

22<: ADO RO.RS 

BIS •200, R3 

nov sos.acsRA 

HOV •4405. .ERRNBR 

nov «En440S.Rl 



TSTB aTXA02A 

BHI 50$ 

nov •16. .8TXBFCA 

nov RS.arxAOiA 

HOVB R3.STXAD2A 



sTfrC nSB'S IN REG 45. 



J TEST BIT 96 Of THE DMTSTA 

I ALTER THE LSB'S IF BIT 96 UAS SET. 
iAOO IN THE LSB-S 
:SET BIT 

{SELECT Tl« LINE ON UHICH TO PERFORH THE OnA. 

:SET ERROR NUNBER 4405 
: SELECT THE MESSAGE. 

t " OHA.START BIT FOUND SET BEFORE DMA INIT. 

I TEST ABANDONED" 

:TEST THE OUT OnA START BIT 

;EXir WITH ERROR IF SET .AFTER FIRST RESTORING 
;THE CONTENTS OF HEMORt. 
I SET UP CHARACTER COUNT 

sSET UP BITS 0 TO 15 OF THE *'HYISCAL ADOR. 
:SET UP BITS 16 TO 21 . AND INITIATE THE ONA. 



( WAIT FOR THE DMA TO COMPLETE AND THE LAST CHARACTER TO BE RECIEVEO 



nov 

NOV 

INC 

JSR 
MOV 



8CC 

MOV 
MOV 
JSR 
MOV 



•170144. Rl 

CSRA.R2 

ERRNBR 

PC.UAIBIS 
•EM4406.R1 



30$ 

R4.R2 
•5.R4 
PC. DEL AY 
R2.R4 



sTEST BIT 15, TIME-OUT OF 100 MS. 
•.PASS THE ADOR OF THE REG TO TEST. 

tSET ERROR NUMBER TO 4406 

tUAIT FOR BIT TO SET 
.SELECT THE MESSAGE . 

! " TIME-OUT OCCURED WAITING FOR DMA TO 

{COMPLETE. TEST ABANDONED' 

{EXIT IF TIME-OUT OCCCURED. AFTER FIRST . 

{RESTORING THE CONTENTS OF MEMORT. 

(SAVE R4 

{SET 5 MS DELAY 

{DELAY TO ALLOU LAST CHARACTER TO BE RECIEVEO 
{RESTORE R4 



!*R£AO THE CONTENTS OF THE RXFIFO AND COMPARE THEM WITH THE CORRECT DATA 

CLR R3 (CLEAR THE READ DATA COUNTER 

MOV «128,.R5 (SET THE MAX BMP CODE READ COUNT 



152040 24$: 



MOV •4407.. ERRNBR 
MOV •EM4407.R1 



MOV aR8UFA.R2 

BPL 50$ 

MOV #1 70501, RO 

SIC R2.R0 

ere 28$ 

JSR PC.SAVBMP 



{SET THE ERRNBR TO 4407 

{SELECT THE MESSAGE , 

J " RXFIFO EMPTY TOO SOON. DMA FAILED 

{TEST ABANDONED" 

J READ THE CHARACTER FROM THE FIFO 

{BRANCH TO REPORT ERROR IF FIFO EMPTY TOO SOON. 

{AFTER FIRST RESTORING THE CONTENTS OF HEMORt. 

sSET UP BIT MASK OF A BMP CODE 

{TRV TO CLEAR THE BMP CODE MASK 

{BRANCH IF NOT A BMP CODE 

{SAVE THE BMP CODE ON THE QUEUE 





P4RT4 
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801 7 




005267 


152006 




INC 






012701 


010660 




MOV 






































B022 


0S3S14 


00530S 






DEC 




03SS16 


001453 






BEQ 














802% 


0SS320 


000753 






BR 


8026 












8027 


0S3322 


012767 


010471 


151766 20>: 


MOV 


8028 


03SSS0 


010201 






MOV 


8029 


0SSS32 


012702 


010723 




MOV 


8050 












8031 


0333S6 


012767 


015444 


151756 


MOV 


8052 


0^5344 


012767 


177777 


000352 


MOV 


8033 


033552 


122401 






CMPB 


8034 


035354 


001034 






BNE 


8035 


035356 


005067 


000322 




CLR 


8036 


055562 


005203 






INC 


8037 


055364 


022703 


000020 




CMP 


6038 


055570 


001327 






BNE 


8059 


055572 


005367 


000274 




DEC 


8040 


055376 


001420 






BEQ 


8041 


033400 


012704 


005154 




MOV 


8042 


053404 


016705 


146612 




MOV 


8043 












8044 


053410 


012767 


010472 


151700 


MOV 


8045 


0334 16 


012701 


010760 




MOV 


6046 












8047 


035422 


012767 


014032 


151672 


MOV 


6048 












6049 


035450 


004767 


167214 




JSR 


8050 


055454 


105004 






BCC 


8051 












8052 


055436 


000615 






BR 


8055 












8054 


055440 


012767 


000001 


000236 29$ : 


MOV 


8055 












6056 








{ ♦ 




8057 








: RESTORE THE 


8058 












8059 












8060 


053446 


016767 


146550 


000224 50$ : 


MOV 


8061 


035454 


016767 


000222 


146540 


MOV 


8062 


035462 


012700 


005602 




MOV 


6065 


053466 


012705 


000001 




MOV 


8064 


053472 


012705 


000020 




MOV 


8065 


033476 


004767 


164066 




JSR 


8066 


035502 


005767 


146546 




TST 


8067 


035506 


001012 






BNE 


8068 


053510 


016767 


000164 


146504 


MOV 


8069 












8070 


033516 


012700 


004202 




MOV 


8071 


033522 


004767 


164042 




JSR 


8072 













Lib 
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«>E0 20« 



ERRf«R 
»EM4408.R1 



R5 
30$ 

24$ 

«4409. .ERRNBR 

R2.R1 

«EM4409.R2 

«ER9101.ERRBLK 
# l.SUCSS 
(R4)».R1 
50$ 

SUCSS 
R5 

«16. .R3 
24$ 
70$ 
29$ 

«S0P28,R4 
DMTSTA.R5 

»44 10. .ERRNBR 
«EM4410.R1 

4NER0503.ERRBLK 

PC.PUFIfO 
30$ 

18$ 



SET THE ERRNBR TO 4406 
SELECT THE MESSAGE. 

" TOO MANY BMP CODES FOUND IN THE RXFirO, 
TEST ABANDONED' 

DEC THE MAX BMP CODE READ COUNT 
GO REPORT ERROR IF TOO MANY BMP COOES f^OUND . 
AFTER FIRST RESTORING THE CONTENTS OF MEMORY. 
DON'T COUNT THE BMP CODE AS A VALID CHARACTER 

SET THE ERRNBR TO 4409 

SAVE THE CHARACTER FROM THE FTFO 

SELECT THE MESSAGE . 

" BAD BIT BETWEEN BITS 0 AND " 
SELECT THE ERROR ROUTINE. 
INDICATE 'BAD BITS' FAILURE 

COMPARE CHAR FROM FIFO UITM THE CORRECT DATA. 
BRANCH IF INCORRECT AND RESTORE MEM CONT'S. 
INDICATE NON TEST SPECIFIC FAILURE E.G. TIME-OUTS 
COUNT THIS CHARACTER. 

HAVE UE RECIEVED ALL THE CHARACTERS ? 

LOOP UNTIL ALL CHARACTERS C NON -BMP) ARE READ. 

DECREMENT THE LOOP COUNT 

BRANCH IF BOTH DMA' S ARE COMPLETED 

SET UP THE SECOND DATA PATTERN 

SET UP THE OTHER DMA TEST ADDRESS 

SET ERRNBR TO 4410 
J SELECT THE MESSAGE . 

J " RXFIFO FAILED TO PURGE. TEST ABANDONED 
; SELECT THE ERROR ROUTINE 

t PURGE THE RXFIFO 

sEXIT WITH ERROR IF FIFO WOULD NOT PURGE . 

! AFTER FIRST RESTORING THE CONTENTS OF MEMORY. 

s OTHERWISE REPEAT. 



♦l.SUCSS 
ORIGINAL DATA IN THE MEMORY 



{INDICATE THAT WE HAVE BEEN ABLE TO TEST. 
I SOME OF THE BITS. 



DMTSTA.OUMY 

ODTSTA.DMTSTA 

«8UFBAS.H0 

♦ 1.R5 

♦16. .R5 

PC.DMRW 

TP4FLG 

51$ 

oumy.dmtsta 
♦Bvifmid.ro 

PC.DMRW 



START WITH THE HIGHER OF THE PAIR OF OMTSTA 

POINT AT THE START OF THE SAVED DATA AREA 
SELECT WRITE TO (DMTSTA) 
PASS NUMBER OF BYTES TO BE WRITTEN 
RESTORE THE DATA 

GO repor: error if a trap OCCUREO 

NOW RESTORE THE DATA FROM THE LOWER 

OF THE PAIR OF TEST ADDRESSES. 

POINT AT THE START OF THE SAVED DATA AREA 

RESTORE THE DATA 



DHU 



Mlb 



II ruNC TSr PAHT4 
lAROuARE TEST 



607$ 
6074 
6075 
8076 
8077 
8078 
8079 
8080 
8081 
808? 
8083 
8084 
8085 
8086 
8087 
8088 
8089 
8090 
8091 
8092 
8093 
8094 
8095 
8096 
6097 
8098 
8099 
6100 
6101 



6102 
8105 
6104 

6105 



6106 
6107 
8106 
6109 



033526 
0S35S2 

033534 
033542 



033546 
035554 



035556 
055562 
055564 
035570 
033572 
035600 



'/55602 
053610 
053612 
053614 
053616 
033616 
055620 
055622 
055626 
055652 
055654 
035656 
055642 

053644 
055644 
055646 
055646 
055652 
055654 
055662 

055666 
055666 
053670 



005767 
001411 

012767 
012701 



012767 
000455 



005767 
001450 
016701 
005501 
022767 
001021 



052767 
001416 
010102 
005202 

010246 
010146 
012746 
012746 
010600 
104414 
062706 
000401 



104460 

012700 
104441 
016767 
005067 



104452 
000016 
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OMAAOR 



146522 



010473 
011007 



151554 SU; 



014032 151546 



TST 
BEQ 

HOV 
MOV 



MOV 
BR 
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TP4FLG 
32> 



SCO 207 



*4411. .ERRNBR 
4€ri4411.Rl 



4ER0503.ERRBLK 
S4( 



:G0 REPORT ANT ERRORS IF A NO TRAP 
: OCCUREO DURING THE RESTORE. 

SET THE ERROR NUMBER TO 4411 
SELECT THE MESSAGE . 

" HOST FAILURE. WRITE FAILURE TO AN AODR 
WHICH HAD PREVIOUSLY BEEN SUCCESSFULLr 
WRITTEN TO. " 
SELECT THE ERROR ROUTINE 
REPORT THE ERROR 



I HAS THE TEST BEEN SUCCESSFUL. PRINT THE BITS TESTED IF IT HAS. 
i REPORT THE ERRORS QThCRWISE. 



000122 
000106 
000001 



52$: 



000104 



TST 
BEQ 
MOV 
DEC 
CMP 
BNE 



SUCSS 
34$ 

BITSTO.Rl 
Rl 

41. SUCSS 
54$ 



IF THE ERROR IS NON TEST SPECIFIC THEN 

BRANCh TO REPORT ERRORS 

LOAD THE NUMBER OF BITS TESTED 

DEC TO GIVE THE BIT POSITION OF THE MSB TESTED. 
I IF THE BITS TESTED ARE BAD THEN 
: BRANCH AND REPORT ERRORS. 



000040 146552 



OTHERWISE DETERMINE IF PRINTING OF THE SUCCESSFULLY TESTED BITS WAS REQUESTED. 



BIT 
BEQ 

MOV 

INC 
PRINTB 



#BIT05, OPTION 

60$ 

R1.R2 

R2 

«EF4401.R1.R2 



; PRINT THE BITS TESTED IF THE SOFTWARE 
OPTION HAS REQUESTED IT 
CALCULATE THE NUMBER OF BITS WHICH HAVE 

BEEN TESTED SUCCESSFULLY. 
PRINT THE NUMBER OF BITS TESTED MESSSAGE. 



005651 
000005 



000010 



000240 

146576 
146552 



54$: 
60$: 



144122 



BR 

ERROR 
SETPRI 



MOV 
CLR 



EXIT 



60$ 



#PRI05 



TP4VEC.4 
CTRLCF 

TST 



jEXIT THE TEST 
I REPORT ERRORS 
t ENABLE THE CLOCK 



MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



TRAP 



R2.-(SP) 

Rl.-CP) 

♦EF4401. -CSP) 

♦3.-CSP) 

SP.RO 

C$PNTB 

♦10. SP 



C$ERROR 



MOV 
TRAP 

sRESTORE THE NORMAL 004 TRAP VECTOR 
(INDICATE THAT WE ARE NOT WITHIN A TEST 



TRAP 
.WORD 



♦PRI05.ro 
C$SPRI 



C»EXIT 
L 10050 



6110 












6111 












8112 






70$: 






6115 


0S5672 


000000 


.WORD 


0 


8114 


035674 


000000 


80$: 


.WORD 


0 


8115 


035676 


000000 


BITSTD: 


.WORD 


0 


8116 


055700 


OOCOOO 


DUMY: 


.WORD 


0 


8117 


055/02 


000000 


ODTSTA: 


.UORO 


0 



LOCAL VARIBLE AREA 



COUNTER FOR THE NUMBER OF DMA'S COMPLETED 
SAVE AREA FOR THE ACTIVE LINE NUMBER 
NUMBER OF BITS TESTED 
DUMMY VARIABLE 

HIGHER OF THE PAIR OF COMPLEMENTARY AODR. 



Bl 



OHU-ll FUNC rST PMT4 



8118 033/04 

8119 

8120 

8121 

8122 

8123 

8124 035706 
033706 
033706 



000000 
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SUCSSt .WORD 0 



SCO 208 



•SUCCESS XNDZCATOR. <1 • ERROR DUE TO BAD BITS 
I 1 - SUCCESSFUL TEST 

I 0 • OTHER ERRORS 



END 



ENDTST 



104401 



LIOOSO: 



TRAP 



CIETST 



CI 
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6126 
8127 
8126 
8129 

6130 
61S1 
6132 
6133 
6134 
8135 
6136 
8137 
6138 
6139 
6140 
6141 

6142 
6143 
6144 
6145 
6146 
6147 
6146 
8149 



6150 
6151 
6152 
6153 
6154 
8155 
6156 
8157 
6156 
6159 
6160 
8^61 
6162 
6163 
8164 
6165 
6166 
6167 
8166 
8169 



6170 



.SBTTL HMHHMAE TEST 



FRHERR 



6171 



033710 
035710 



033710 
033716 

033720 
033724 
033724 
033730 
033732 

033740 
053746 
0357S4 
055762 
055770 
055774 



054000 
054004 



054006 
054006 
054012 
034014 
034014 
034020 
054024 
034030 
034054 
054056 
054042 



126727 
001402 



146260 000002 



• FRAHXNC EMKW GENERATION TEST ■ 

THIS TEST IS USED TO VERIFY THE FRW1ING ERROR DETECTION CAPABILITIES 
OF THE DHUll. 

UHEN IN STAGGARED LOOPBACK HODE. CHARACTERS ARE TRANSMITTED fMh 

ONE GROUP OF LINES AT 6 BITS/CHAR . AND RECEIVED BY THE OTHER GROUP 

AT 5 BITS/CHAR. THIS UILL GENERATE A FRAtlXNG ERROR FOR EACH CHARACTER. 

THIS TEST UILL ONLY EXECUTE IF THE STAGGARED LOOPBACK HOOE IS SELECTED. 

THE SPECIAL STAGGARED LOOPBACK BERG CQMCCTOR HUST BE FITTED. 

THE ACTIVE LINES BIT MASK IS USED TO INDICATE UHICH LINES HAVE BEEN 

BEHOVED FROH FURTICR TESTING. 



BGNTST 



EXECUTE THIS TEST IN STAGGARED LOOPBACK HOOE ONLY. 



T5:: 



000167 000572 



012700 
104441 
012767 
000005 
012767 
012767 
012767 
012767 
005067 
005067 



004767 
105144 



012700 
104441 

012746 
012746 
016746 
012746 
104437 
062706 



000240 

177777 146260 



000005 
000001 
014071 
011054 
146504 
146224 



165552 



146312 
151540 
151554 
151550 



CNPB 
BEO 

JHP 
SETPRI 



MOV 

TNUH 

NOV 

MOV 

HOV 

NOV 

aR 
aR 



L0PBCK.«2 
.•6 

601 

•PRI05 



♦-1.CTRLCF 
■ TUMI • 1 
•TNUH.TSTNUH 
•l.ERRTYP 
«6201..ERRNBR 
4Cn6201 .CRfMSG 



I CHECK MODE SELECTED. 

lAVOID EXITING THE TEST IF STAGGERED LOOPBACK 
iNOOE IS SELECTED. 
I EXIT THE TEST. 
lALLOU LTC INTERRUPTS. 

NOV tfPRIOS.RO 
TRAP CISPRI 

{INDICATE THAT UE ARE IN A TEST. 

I INCREMENT THE ASSBttLY TIME TEST COUNTER. 

iSET UP T»C TEST NUTflER. C62) 

•SET ERROR TYPE IN ERROR TABLE. 

iSET THE FIRST ERROR NUr«ER IN ERROR TABLE. 

iSET ERROR MESSAGE ACNWESS IN ERROR TABLE. 

I INITIALIZE THE HEPORT ERROR SUMTWRY- FLAGS. 

iCLEAR T»C "AT LEAST ONE ERROR- INDICATOR. 



000540 



000500 
027426 
146140 

000003 

000010 



RESET TIC OUT TO A KNONN STATE. REMOVE STATUS COOES FROM THE FIFO. 
aEM TX AND RX INTCRRUPT ENABLE BITS. 
THIS SUBROUTINE REPORTS ERROR »»> 6201 <««. 

JSR PC.CLWST iRESET THE OUT. 

BCC 601 lABORT THE TEST IF FATAL ERROR FOUND IN RESET. 

{disable all INTERRUPTS. 

I SET UP DMA TX AM) RX INTERRUPT SERVICE ROUTINES. 
' SETPRI «PRI07 {DISABLE ALL INTERRUPTS. 

MOV 
TRAP 

SETVEC TXVECA.*TX0MA.«PRI06 iSELECT DMA TX INT SERVICE RTN. 

MOV 
MOV 
HOV 
MOV 
TRAP 
ADO 

SETPRI 4PRI04 i ALLOW INTERRUPTS. 



4PRI07.ro 
CtSPRI 

•PRI06.-(SP) 
•TXOMA.-(SP) 
TXVECA,-(SP) 
♦3.-(SP) 
CtSVEC 
•10. SP 



Dl 



ST PART4 



Am 

8173 
8174 
8175 
8176 
8177 
8176 
8179 
8180 
8181 
6182 
8183 
8164 
8185 
8186 
8167 
8166 
6169 
6190 
6191 
6192 
6193 
6194 
6195 
6196 
6197 
6196 
6199 
8200 
6201 
6202 
6203 
8204 
620S 
8206 
8207 
6206 
8209 
6210 
6211 
6212 
8213 
6214 
8215 
6216 
8217 
6216 
8219 
6220 
6221 
6222 
6223 
6224 
822S 
6226 



034050 
054054 
034060 



034064 
054070 
054074 



054100 
054104 
054110 
054114 
054120 
054124 
054150 



054134 
054140 
054144 
054146 
054154 
054160 



054170 
054174 
054176 
054204 



054206 
054210 
054214 



005067 
005067 
005067 



012700 
004767 
005067 



012700 
012701 
004767 
012702 
012705 
016704 
004767 



005267 
004767 
105064 
012767 
004767 
012705 



054164 004767 



005767 
001404 
032767 
001436 



005104 
004767 
005267 
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000200 



SCO 210 



I ♦ 



CLEM) TX. RX. AND OMA.START ERROR FLAGS. 



146426 
146424 

146200 



003502 
165264 
147502 



156470 
156440 
164422 

005602 
000001 
146106 
165726 



CLR 
CLR 
CLR 



TXDONF 
RXOONF 
TXINTF 



iCLEAR TX DONE FLAGS FOR ALL LINES. 
iCLEAR RX DONE FLAGS FOR ALL LINES. 
(CLEAR TX ERROR FLAGS FOR ALL LINES. 



151156 
166566 

014075 151142 

171544 

100000 



162546 
146050 

000100 145756 



SET UP ERROR TABLE AND DATA PATTERN TABLE. 
THE NUMERICAL VALUE OF THE CHARACTER INDICATES THE NUMBER OF THE LINE 
THAT TRANSMITTED IT. 

MOV •ERCNTB.RO iPASS THE ADDRESS OF THE TABLE TO BE CLEARED. 

JSR PC.CLR16W I CLEAR THE RX ERROR COUNTERS TABLE. 

CLR BUFBAS iSET SINGLE CHAR DATA TO BE A NULL. 

INITIALISE DMA PARAMETERS IN THE CONTROL BLOCK. 
TRANSMISSION ON LINE GROUP 1 AT 6 BITS/CHAR. 1 STOP BITS.OOO PARITY. 
RECEPTION ON LINE GROUP 2 AT 5 BITS/CHAR. 1 STOP. 000 PARITY. 

MOV #1564 70. RO iPASS LPR PARAMETER FOR 6 BITS/CHAR. 

MOV •156440. Rl iPASS LPR PARAMETER FOR 5 BITS/CHAR. 

JSR PC.GETTIM iGET TIME-OUT BASED ON MINIMUM BAUORATE IN USE. 

MOV «eUFBAS.R2 tPASS START ADDRESS OF DATA PATTERN. 

MOV •1.R3 I PASS LENGTH OF DATA PATTERN. 

MOV LGRP1M.R4 iPASS LINE GROUP OF LINES THAT ARE TO TX. 

JSR PC.FRPSUP I SET UP OUT FOR TRANSMISSION AND RECEPTION. 

PURGE THE FIFO OF MIY UN-IMNTED CHARACTERS. THIS ROUTINE REPORTS ERRORS 

WITH WITH ERROR NUMBERS FROM >>>>> 6202 THRU 6204 <<<<<. 
PERFORM TRANSHISSION AND RECEPTION AT 9600 BAUD. 

REPORT ANY ERRORS FOUND. IE. FRAMING ERROR BIT CLEAR OR PARITY ERROR SET. 



INC 
JSR 
BCC 

MOV 
JSR 

MOV 



PC.PUFIFR 
60t 

46205. .CRRNDR 
PC.TXFRPR 
#100000. R5 



I SET THE ERROR REPORT NUMBER TO 6202. 
I CLEAN OUT THE FIFO. 

I ABORT THIS TEST IF FIFO WOULD NOT PURGE. 
iSET THE ERROR NUMBER TO 6205. 
iTX DATA PATTERN ON SELECTED ACTIVE LINES. 
tPASS FRAMING ERROR TEST FLAG. 



I ♦ 



THIS SUBROUTINE REPORTS ERROR NUMBER »>>> 6205 ««<. 



JSR PC.CKFRPR 

TST FERROR 

BEQ 2t 

BIT «6IT06. OPTION 

BEQ 541 



165646 
151076 



*' iREAD CHARACTERS. REPORT ANY ERRORS FOUND. 

iHAS AN ERROR BEEN DETECTED? 
iBRANCH IF NO ERROR 

iMAS EXTENDED ERROR REPORTING BEEN ENBL'D? 
I BRANCH IF IT HASN'T AND EXIT THE TEST. THE 
I TEST FAILURE MESSAGE HAS BEEN PRINTED. 

^REVERSE TRANSMISSION/RECEPTION ROLES ON ALL ACTIVE LINES. AND REPEAT TEST. 

21: COM R4 (REVERSE ROLES FOR TRANSHISSION AND RECEPTION. 

JSR PC.FRPSUP iSET UP OUT FOR TRANSMISSION AND RECEPTION. 

INC ERRNBR iSET ERROR NUMBER TO 6206. 



OMU 11 FUNC 1ST 
HAROUMtE TEST 



PART4 



El 
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SEQ 211 



B227 








8228 








8229 








8230 


034220 


004767 


166506 


8231 


034224 


103034 




8232 


034226 


012767 


014101 


8233 


054254 


004767 


171264 


8234 


034240 


012705 


100000 


8235 








8236 








8237 








8238 


034244 


004767 


162466 


8239 








8240 


034250 


005767 


145750 


8241 


054254 


001404 




8242 


054256 


052767 


000100 


8243 


054264 


001406 




8244 








824S 








6246 


054266 


005267 


151024 


8247 








8246 








8249 








8250 








6251 








8252 








6253 


054272 


004767 


171522 


6254 


034276 


004767 


171744 


8255 








6256 


054302 








054302 


012700 


000540 




054506 


104441 




6257 


054310 








054510 


016700 


145654 




054514 


104456 




8258 








6259 


054516 


005067 


145676 


8260 








6261 


054322 
054522 
054522 


104401 





151062 



I'thIS ROUTNE reports errors with numbers >>>>> 6206 THRU 6206 <<<<<. 

' JSR PC.PUFIFR jCLEAN OUT THE FIFO. 

BCC 601 I ABORT THIS TEST IF FIFO WOULD NOT PURGE. 

nOV 46209. .ERRNBR iSET ERROR NUMBER TO 6209. 

JSR PC.TXFRPR iTX DATA PATTERN ON SELECTED ACTIVE LINES. 

HOV 4100000. R5 iPASS FRAMING ERROR TEST FLAG. 

I THIS SUBROUTINE REPORTS ERRORS >>>>> 6209 <<<<<. 

' JSR PC.CKFRPR 



I READ CHARACTERS. REPORT ANY ERRORS FOUND. 



145676 



4»: 



TST FERROR 

BEQ 4» 

BIT •61X06. OPTION 

BEQ 54 t 



INC ERRNBR 



(HAS AN ERROR BEEN DETECTED? 
{BRANCH IF NO ERROR 

I HAS EXTENDED ERROR REPORTING BEEN ENBL'O? 
iBRANCH IF IT HASN'T AND EXIT THE TEST. THE 
I TEST FAILURE MESSAGE HAS BEEN PRINTED. 

I SET ERROR NUMBER TO 6210. 



DISABLE INTERRUPTS. 

CLEAR THE INTERRUPT VECTORS. 

UPDATE THE ACTIVE LINES BIT MAP TO REFLECT LINES REMOVED FROM TESTING. 
THIS SUBROUTINE REPORTS ERRORS >>>>> 6210 THRU 6212 <<<<<. 



S4»: 



JSR 
JSR 

SETPRI 
CLRVEC 



PC.TXIEO 
PC.TXRREP 

•PRI07 

TXVECA 



601: 



CLR CTRLCF 
ENDTST 



I DISABLE ALL TX INTERRUPTS. 
iREPORT FINAL ERRORS FROM TX/RX. 

{DISABLE ALL INTERRUPTS. 

MOV 
TRAP 

•RETURN TX INT VECTOR TO UNUSED POOL. 

MOV 
TRAP 

t INDICATE THAT UE ARE NOT UITHIN A TEST. 

L 10031: 

TRAP CtETST 



♦PRIOT.RO 
C»SPRI 

TXVECA, RO 
OCVEC 



t- 1 



OMU-ll FUNC TST PART4 
HAROUMtE TEST 



6265 
8264 
6265 
6266 
6267 
6266 
6269 
6270 
6271 
6272 
6273 
6274 
6275 
6276 
8277 
8276 
8279 
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PARERR 



SEQ 212 



8280 
8281 
8282 
8283 
8284 
8285 
8266 
8287 
8268 



8289 
8290 
8291 
8292 
8293 
8294 
8295 
8296 
8297 
6298 
8299 
6300 
6301 
8302 
8303 
6304 
8305 
8306 
8307 
8306 



8309 



034324 
034324 



034324 


126727 


145644 


000002 


034332 


001402 






034334 


000167 


000434 




034340 








034340 


012700 


000240 




034344 


104441 






034346 


012767 


177777 


145644 




000006 






034^54 


012767 


000006 


145676 


034S62 


012767 


000001 


150724 


034370 


0127*-' 


014235 


150720 


034376 


012767 


011115 


150714 


034404 


005067 


146070 




034410 


005067 


145610 





034414 
034420 



034422 
034422 
034426 
034430 
034430 
034434 
034440 
034444 
034450 



004767 
103165 



012700 
104441 

012746 
012746 
016746 
012746 
104437 



162716 



5BTTL HARDUARE TEST 



- PARERR - 
PARITY ERROR GENERATION TEST 



* THIS TEST IS USED TO VERIFY THE PARITY ERROR DETECTION AND REPORT 

* CAPABILITIES OF THE DUT. 

* UHEN STAGGAREO LOOPBACK HODE IS SELECTED. DATA IS TRANSMITTED 

* ON ALL ACTIVE LINES IN LINE GROUP 1 WITH ODD PARITY SELECTED. 

* AND RECEIVED ON LINES IN GROUP 2 WITH EVEN PARITY SELECTED. 

* THIS WILL GENERATE A PARITY ERROR FOR EACH CHARACTER RECEIVED. 

* THE PARITY SELECTION IS THEN REVERSED ON THE LINES IN EACH GROUP 

* AND THE TEST IS REPEATED. 

* THIS TEST WILL ONLY EXECUTE IF THE STAGGARED LOOPBACK MODE IS SELECTED. 

* THE SPECIAL STAGGARED LOOPBACK BERG CONNECTOR HUST BE FITTED. 
* 



BGNTST 



EXECUTE THIS TEST IN STAGGARED LOOPBACK HOOE ONLY. 



T6: 



CMPB 
BEQ 

JMP 



L0P6CK.«2 
.•6 

601 



I CHECK HOOE SELECTED. 

I AVOID EXITING THE TEST IF STAGGERED LOOPBACK 
(HOOE IS SELECTED. 
I EXIT THE TEST. 



SETPRI fPRIOS 



lALLOU LTC INTERRUPTS. 

nOV •PRIOS.RO 
TRAP CISPRI 

{INDICATE THAT WE ARE IN A TEST. 
{INCREMENT THE ASSEr«LY TIME TEST COUNTER. 
{SET UP THE TEST NUMBER. C63) 
(SET ERROR TYPE IN ERROR TABLE. 
{SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
{SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
(INITIALIZE THE •DEPORT ERROR SUMMARY- FLAGS. 
(CLEAR THE "AT LEAST ONE ERROR" INDICATOR 

('*RESET THE DUT TO A KNOWN STATE. REMOVE STATUS COOES FROM THE FIFO. 

t CLEAR TX AND RX INTERRUPT ENABLE BITS. 

( THIS SUBROUTINE REPORTS ERROR >>»> 6301 <<«<. 

* JSR PC.CLNRST (RESET THE OUT. 

BCC 60t (ABORT THE TEST IF FATAL ERROR FOUND IN RESET. 

! DISABLE ALL INTERRUPTS. 

( SET UP DMA TX AND RX INTERRUPT SERVICE ROUTINES. 



MOV 

TNUM 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 



•-l.CTRLCF 
. TNUM ♦ 1 
•TNUM.TSTNUM 

♦I.ERRTY P 

46301 . sERRNBR 
•En6301.ERimSG 
ERS»«F 
FERROR 



000340 



000300 
027426 
145524 
000003 



SETPRI 4PRI07 



SETVEC TXVECA.«TXDMA.«PRI06 



(DISABLE ALL INTERRUPTS. 

MOV 
TRAP 

(SELECT DMA Tx INT SERVICE RTN. 

MOV 
MOV 
MOV 
MOV 
TRAP 



4PRI07.R0 
CISPRI 

«PRI06.-(SP) 

#TX0MA.-(SP) 

TXVECA.-(SP) 

♦3.-(SP) 

CISVEC 



I 7 1 



TST P/tflT4 
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SEO 21 





0344S2 


062706 


000010 


6310 


034456 








034456 


012700 


000200 




0S4462 


104441 




8311 








8312 








831S 








8314 


034464 


005067 


146012 


8315 


054470 


005067 


146010 


8316 


034474 


005067 


145564 


8317 








8318 








8319 








8320 


054500 


012700 


003302 


8321 


034504 


004767 


162650 


8322 








8325 








8324 








8325 








8326 


054510 


012700 


156470 


8327 


034514 


012701 


156570 


8328 


034520 


004 767 


164012 


8329 


054524 


012702 


005154 


8330 


034550 


012703 


000020 


8351 


054534 


016704 


1454 76 


8532 


034540 


004 767 


165516 


8333 








8554 








8335 








8336 








8557 








8558 








8559 








8540 








8541 








8342 








8345 








ri<«4 








8345 


034544 


004 767 


166162 


8346 


034550 


103111 




8547 


034552 


012767 


014241 


8348 


034560 


004 767 


164030 


8349 


034564 


005005 




8550 








8551 








8552 








8555 


034566 


004767 


162144 


8554 








8355 


034572 


005767 


145426 


8356 


034576 


001404 




8557 


054600 


032767 


000100 


8358 


034606 


001457 




8359 








8360 








8561 


034610 


00526"' 


150502 


9362 








8563 









SETPRI •PRI04 



J ALLOW INTERRUPTS. 



ADD 

MOV 
TRAP 



•10. SP 

«PRI04,R0 
CISPRI 



I ♦ 



I CLEAR TX/RX FLAGS. 



CLR 
CLR 
CLR 



TXDONF 
RXOONF 
TXINTF 



SET UP ERROR COUNTER TABLE. 



MOV 
JSR 



♦ERCNTB.RO 
PC.CLR16U 



tCLEAR TX DONE FLAGS FOR ALL LINES. 
I CLEAR RX DONE FLAGS FOR ALL LINES, 
s CLEAR TX ERROR FLAGS FOR ALL LINES. 



;PASS THE ADDRESS OF THE TABLE TO BE CLEARED, 
•.CLEAR THE RX ERROR COUNTERS TABLE. 



INITIALISE DMA PARAMETERS IN THE CONTROL BLOCK. 

MOV #1564 70. RO iPASS LPR PARAMETER WITH ODD PARITf. 

MOV ♦156570. HI :PASS LPR PARAMETER UITH EVEN PARITY. 

JSR PC. GET TIM ; GET TIME OUT BASED ON MINIMUM 8AU0RATE IN USE. 

MOV ♦S0P2B.R2 :PASS START ADDRESS OF DATA PATTERN. 

MOV #16.. R5 :PASS LENGTH OF DATA PATTERN. 

MOV LGRP1M.R4 jPASS BIT MAP OF LINES TO BE SET UITH 000 PAR. 

JSR PC.FRPSUP :SET UP DUT FOR TRANSMISSION AND RECEPTION. 

PURGE THE FIFO OF ANY UNWANTED CHARACTERS. 

PERFORM TRANSMISSION AND RECEPTION OF THE 16 BYTE DATA datteRN A1 9600 BAUD. 
TRANSMISSION ON LINE IN GROUP 1. 8 BITS/CHAR. 1 STOP BITS. ODD PARITY. 
RECEPTION ON LINES IN GROUP 2 AT 8 BITS/CHAR. 1 STOP. EVEN PARITY. 
REMOVE CHARACTERS FROM THE FIFO AND LOOK FOR THE PARI! t ERROR BIT BEING SET, 
REPORT ANY ERRORS FOUND. IE. FRAMMING ERROR BIT SET OR PARITY ERROR CLEAR. 

jTMlS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 6302 THRU 6304 <<<<<. 



150536 



JSR 


PC.PUFIFR 


{CLEAN OUT THE FIFO. 




BCC 


60 i 


! ABORT THIS TEST IF FIFO WOULD 


NOT PURt>E. 


MOV 


«6305. .ERRNBR 


;SET ERROR NUMBER TO 6305 




JSR 


PC.INIOMA 


jTX DATA PATTERN ON ALL ACTIVE 


LINES. 


CLR 


R5 


•.PASS PARITY ERROR TEST FLAG. 





I THIS SUBROUTINE REPORTS ERROR NUMBER >>>>> 6305 <<<<«. 



145354 



JSR PCCKPRPR 

TST FERROR 

BEG 2t 

BIT «eiT06. OPTION 

BEQ 54 » 



jREAD CHARACTERS. REPORT ANY ERRORS FQlNO. 

jHAS AN ERROR BEEN FOUND ? 

;BRANCH TO CONTINUE IF IT HASN'T. 

;HAS EXTENDED ERROR REPORTING BEEN REQUES'feD 7 

jEXiT THE TEST IF IT HASN'T. THE TEST F4IL0HE 

i MESSAGE HAS ALREADY BEEN REPORTED. 



2» 
s • 

s 



INC ERRNBR iSFT ERROR NUMBER TO 6306. 

THIS SUBROUTINE REPORTS IRPOBS WITH NUMBERS »>»>> 6306 iHRu fSO'* 



HI 
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.EO ?14 



85t)4 








8565 


034614 


004767 


171426 


8366 


034620 


005767 


145400 


8367 


034624 


001404 




8368 


034626 


052767 


000100 


8369 


034654 


001457 




83''0 








83 71 








8372 


054636 


012767 


014246 


8373 


034644 


005067 


145632 


8374 


034650 


005067 


145630 


8375 


054654 


005067 


145404 


8376 








8377 








8378 








8379 


034660 


005104 




8580 


054662 


004767 


165174 


8381 








8382 








A V a 4 

8383 








8384 


034666 


004767 


166040 


8385 


054672 


105040 




8386 


034674 


012767 


014250 


8387 


034 702 


004767 


4^9 T/\£ 

163706 


8388 








8389 








8390 








8391 


034706 


004 767 


162024 


8392 


034 712 


005767 


145306 


8393 


034716 


001404 




8394 


034720 


032767 


000100 


8595 


034726 


001407 




8396 








8597 








8398 


034730 


012767 


014255 


8599 








8400 








8401 








8402 








8405 








Oil f\Jt 

8404 


054756 


004767 


170656 


8405 








a jt f\£. 
















O40o 


034 742 


004767 


171300 


Oil /NO 






O410 


Jl Til £ 

034 746 








/\ Til Til ^ 

034746 


012 700 


000340 




034752 


10444 1 




Ail 1 1 

041I 


034754 








034754 


016700 


145210 




034760 


104456 












6413 








8414 








6415 








8416 


034 /62 


012767 


014261 



4S: 



JSR PC.TXRREP 

TST FERROR 

BEQ 4$ 

BIT 461106. OPTION 

BEQ 60S 



MOV «6310. .ERRNBR 

CLR TXDONT 

CLR RXOONF 

CLR TXTNTF 



REPORT FINAl ERRORS FROM TX/RX. 

HAS AN ERROR BEEN FOUND ? 

BRANCH TO CONTINUE IF IT HASN'T. 
|HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
;EXIT THE TEST IF IT HASN'T. THE TFST FAILURE 
(MESSAGE HAS ALREADY BEEN REPORTED. 

SET ERROR NUMBER TO 6510. 
CLEAR TX DONE FLAGS FOR ALL LINES. 
CLEAR RX DONE FLAGS FOR ALL LINES. 
CLEAR TX DMA HANDOVER ERROR FLAGS. 



REVERSE TRANSMISSION/RECEPTION ROLES ON ALL ACTIVE LINES. AND REPEAT TEST. 

COM R4 (REVERSE ROLES FOR TRANSMISSION AND RECEPTION. 

JSR PC.FRPSUP (SET UP OUT FOR TRANSMISSION AND RECEPTION. 

THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 6510 THRU 6311 <<<<*. 



JSR PC.PUFIFR 

BCC 60$ 

MOV «6312. .ERRN8R 

JSR PC . INIOMA 



CLEAN OUT THE FIFO. 

ABORT THIS TEST IF FIFO WOULD NOT PURGE. 
SET ERROR NUMBER TO 6512. 

TX DATA PATTERN ON SELECTED ACTIVE LINES. 



THIS SUBROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 6512 THRU 6516 <<<<< 



6$: 



s - 



JSR 
TST 

BEQ 
BIT 

BEQ 



MOV 



PC.CKFRPR 

FERROR 

6t 

4BIT06.0PTI0N 
54 S 



READ CHARACTERS. REPORT ANY ERRORS FO'JND. 

HAS AN ERROR BEEN FOUND ? 

BRANCH TO CONTII^ IF IT HASN'T. 

HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 

EXIT THE TEST IF IT HASN'T. THE TEST FAILURE 

MESSAGE HAS ALREADY BEEN REPORTED. 



•6317. .ERRNBR tSET ERROR NUMBER TO 6317. 



disable interrupts. 

Clear the interrupt vectors. 

update the active lines bitmap to reflect lines removed from testing. 

jsr pc.txieo (disable all tx interrupts, 

this subroutine reports errors >>>>> 6517 thru 6320 v<<<<. 



54$ ! 



JSR PC.TXRREP 
SETPRI *PR107 

CLRVEC TXVECA 



t REPORT FINAL ERRORS FROM TX/RX. 
(DISABLE ALL INTERRUPTS. 

MOV 
TRAP 

(RETURN TX INT VECTOR TO UNUSED POOL. 

MOV 
TRAP 



ffPRI07.R0 
CSSPRI 

TXVECA, RO 
CJCVEC 



; ♦ 

i 

i 



This subroutine reports errors UITH numbers >>»>> 6521 .<<«*. 
MOV Ofe??!. .ERRNBR (SET ERROR NUMBER TO 65.n. 



OHC II KINC I*.! PAR 14 MACHO Ml^'- 
HARDuARl TfSI PARERft 

8417 054 7 70 004 767 167054 
84 IS 

941>» 034774 005067 145^20 
8420 035000 
035000 

055000 104401 
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JSR PC.REPSMR 

60«: CLR CTRLCF 

EN0T5T 



{REPORT fRROR SUMMARIES IF CALLED FOR. 
s INDICATE THAT UE ARE NOT WITHIN A TEST. 

L 10052: 



TRAP C«ETST 



J 



OHU 11 roNC rST PART4 
HARDWARf TFST 



8422 
842S 
S424 
6425 
8426 
8427 
8428 
8429 
8450 
8431 
8452 
8435 
8434 
8435 



8456 



8437 
8438 
8439 
6440 
6441 
8442 
6443 
6444 
8445 
6446 
8447 
6448 
8449 
6450 
8451 
8452 
6453 
8454 
6455 
6456 



8457 



035002 
035002 
035002 
035002 
035006 

035010 
035016 
035024 
03503c! 
035040 
035046 
035052 



035056 
035062 
055064 



6458 



8459 



012700 
104441 

000007 
012767 
012767 
012767 
012767 
012767 
005067 
005067 



004 7t>7 
103402 
000167 



MACRO M1200 
DMA 
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.SBTTL HARDWARE TEST 



DMA 



s* 

J* 
J ♦ 
{• 
$♦ 
J* 
;* 

! • 



DMA MODE TEST 

THIS TEST VERIrlES THAT THE DEVICE UNDER TEST CDUT) UILL PERFORM 
TRANSMISSION AND RECEPTION CORRECTLY USING THE DMA MODE TRANSMISSION. 
THE TEST IS PERFORMED AT ALL BAUDRATES (EXCEPT 50 BAUD). 8 BITS PER 
CHARACTER. I STOP BIT, AND UITH PARITY CHECKING CBOTH ODD AND EVEN). 
A HIGH SPEED TEST IS ALSO PERFORMED AT THE HIGHEST 3 BAUDRATES AT 
BOTH 5 AND 8 BITS PER CHARACTER. 1 STOP BIT. AND NO PARITY CHECKING. 
THIS TEST IS PERFORMED WITH THE TYPE OF LOOPBACK WHICH WAS SPECIFIED 
IN THE OUT HARDWARE P TAB! E ON ALL ACTIVE LINES. 



000240 



000007 
177777 
000001 
021615 
012335 
145420 
145146 



162254 
000664 



145242 
1451/4 
150262 
150256 
150252 



BGNTST 

SETPRI «PRI05 



TNUM " TNUM » 1 

MOV #TNUM.TSTNUM 

MOV 0-l.CTRLCF 

MOV OLERRTYP 

MOV #9101. .ERRNBR 

MOV ♦EM9101.ERRMSG 

CLR ERSMRF 

CLR FERROR 



T7: : 

J ALLOW LTC INTERRUPTS. 

MOV »PRI05.R0 
TRAP CJSPRI 

•.INCREMENT THE ASStMBLi TIME TEST CO'JNTER. 

;SET UP THE TEST NUMBER. C91) 

; INDICATE THAT WE ARE IN A TEST. 

:SET ERROR TYPE AS FATAL IN ERROR TABLE. 

sSET THE FIRST ERROR NUMBER IN ERROR TABLE. 

J SET ERROR MESSAGE ADDRESS IN ERRTBL. 

{INITIALIZE THE "REPORT ERROR SUMMARY" FLAGS. 

•.CLEAR THE 'AT LEAST ONE ERROR" INDICATOR. 



t RESET THE OUT TO A KNOWN STATE. REMOVE THE STATUS COOES FROM THE FIrO. 
; CLEAR TX AND RX INTERRUPT ENABLE BITS IN THE CSR. 
s THIS SUBROUTINE REPORTS ERROR >>>>> 9101 <<<<<.. 



JSR 
BCS 
JMP 



PC.CLNRST 

2« 

60 J 



:RESET THE DHU 11. REPORT ANr ERRORS FOUND. 
jSKIP AROUND TEST EXIT IF NO FATAL ERROR FOLINO. 
;RESET FAILURE. ABORT THIS TEST. 



SET UP FOR TRANSMIT INTERRUPTS. 



035070 






2»: SETPRI 


i«>RI07 jDISABlf ALL INTERRUPTS. 




035070 


012700 


000340 




MOV 


OPRI07.R0 


035074 


104441 






TRAP 


C»SPRI 


035076 






SETVEC 


TXVECA.*TX0MA.*PRI06 {SELECT DMA TX INT SERVICE RTN. 




035076 


012746 


000300 




MOV 


•PRI06. -(SPt 


035102 


012746 


027426 




MOV 


•TXOMA. -CSP) 


035106 


016746 


145056 




MOV 


TXVECA.-CSP"» 


035112 


012746 


000003 




MOV 


♦3. (SP) 


035116 


104457 






TRAP 


C$SV£C 


035120 


062706 


000010 




ADO 


#10. SP 


035124 






SETVEC 


RXVECA,*RXCHRS,«PRI06 iSELFCT RX INT bERVICE RTN. 




035124 


012746 


000500 




MOV 


#PRI06, (SPT 


035130 


012746 


027216 




HOV 


#«XCMRS. -(SP"> 


035134 


016746 


145026 




MOV 


RXVECA,-(SP) 


035140 


012746 


000003 




MOV 


#3. (SP) 


035144 


104437 






TRAP 


CSSVEC 


035146 


062706 


000010 




ADO 


♦10. SP 


035152 






St TPRI 


«PRI04 tALLOW INTERRUPTS. 




055152 


012700 


000200 




MOV 


9PRI04.R0 


035156 


104441 






TRAP 


C»SPRI 





PAnr4 




6460 








84t»l 








846^ 








8463 








8464 








8465 


035160 


012700 


003302 


8466 


035164 


004767 


162170 


8467 


035170 


012701 


010470 


8466 


035174 


004767 


163336 


8469 


035200 


012702 


005154 


8470 


035204 


012703 


000020 


84 71 


035210 


012704 


000001 


8472 


035214 


004 767 


171374 


8473 


035220 


012767 


177400 


84 74 


035226 


012767 


021616 


84 75 








64 76 








6477 








84 78 


035234 


004767 


1654 72 


84 79 


035240 


103402 




8480 


03S242 


000167 


000452 


8481 








8482 


035246 


004 767 


165662 


8483 


035252 


004767 


163556 


8484 


0SS2S6 


012767 


021621 


6485 








6486 








848 7 








6486 


035264 


004767 


165700 


8469 


055270 


005767 


144 750 


6490 


035274 


001406 




8491 


035276 


032767 


000100 


8492 


035304 


001002 




8493 


055306 


000167 


000406 


8494 








8495 


035512 


012767 


021627 


6496 








6497 








6498 








6499 


055320 


004 767 


170722 


8500 


055524 


005767 


144674 


6501 


055550 


001404 




8502 


055552 


052767 


000100 


8503 


055540 


001567 




8504 








8505 








8506 








6507 








8508 


055542 


010100 




8509 


055544 


042701 


000100 


8510 


035550 


005100 




8511 


055552 


042700 


177677 


8512 


035556 


050001 




8513 


035360 


062701 


010400 


8514 


035364 


10330! 




8515 








8516 
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TRANSMIT AND RECEIVE SHORT DATA PATTERN AT ALL BAUORATES. 

WITH 8 BITS PER CHARACTER. I STOP BIT. AND BOTH TrPES OF PAPTTf, 
BOTH LINE GROUPS (.GPRS) TX AND RX WITH THE SAME PARAMETERS. 



145004 
150062 



MOV ♦ERCNTB.RO 

JSR PC.CIR16W 

MOV «10470.R1 

4$: JSR PC.GETTIM 

MOV •SDP2B.R2 

MOV #SDP2E SDP2B.R3 

MOV 01. R4 

JSR PC . VANSUP 

MOV #1 77400. IBM 

MOV «9102. .ERRNBR 



; CLEAR THE RX ERROR COUNTERS TABLE. 
SET UP LPR CONTENTS FOR TX/RX AT 75 BAUD. 
GET TIME OUT BASED ON MINIMUM BAUDRATE IN USE. 
SET UP THE START ADR OF THE DATA PATTERN, 
SET UP THE DATA PATTERN LENGTH. 
SPECIFY TO SEND 1 DATA PATTERN TO EACH LINE. 
SET UP "VANILLA FLAVORED" TX/RX. 
FORM BIT MAP OF UNUSED TX/RX BITS. 
SET THE ERROR REPORT NUMBER TO 9102. 



THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9102 THRU 9104 <<<<<. 

: PURGE THE OUT RECEIVE CHARACTER FIFO, 
s ABORT THIS TEST IF FIFO WOULD NOT PURGE. 



JSR 
BCS 
JMP 



PC.PUFIFR 
. »6 
50* 



150032 



JSR PC.PURRXB 
JSR PC . INIOMA 
MOV «9105. .ERRNbR 



: PURGE THE RX CHAR BUFFER IN MEMORY, 
J SEND THE FIRST BATCH OF DATA PATTERNS. 
sSET ERROR NUMBER TO 9105. 



THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9105 THRU 9110 <<<<<, 



144656 



147776 5»! 



JSR PC.RDCHRS 

TST FERROR 

BEQ 5$ 

BIT #BIT06. OPTION 

BNE . ♦& 

JMP 50* 

MOV <^9 111, .ERRNBR 



READ AND VERIFY THE RX CHARACTERS. 
HAS AN ERROR BEEN DETECTED ? 

NO Then branch 

HAS EXTENDED ERROR REPORTTNG BEEN REQUESTED ? 
;N0. then exit the TEST. 
.•SET ERROR NUMBER TO 9111. 



THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9111 THRU 9114 <<<<< 



144622 



JSR PC.TXRREP 

TST FERROR 

BEQ 6* 

BIT *6IT06. OPTION 

BEQ 50$ 



REPORT FINAL ERRORS FROM RX/RX. 
HAS AN ERROR BEEN DETECTED ? 
NO. THEN BRANCH. 

HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
sNO, THEN EXIT THE TEST. 



s ♦ 



TOGGLE THE PARITY TYPE BIT SPECIFIER IN THE TX/RX SETUP PARAMETERS. 
SELECT THE NEXT BAUDRATE AND PERFORM THE TEST AGAIN IF NOT DONE. 



6$! 



MOV 
BIC 

BIC 
BIS 
ADD 
BCC 



Rl.RO 
0100. Rl 
RO 

0177677, RO 
RO.Rl 
010400. Rl 
4* 



COMPLEMENT THE PARITY TYPE 

BIT IN THE TX/RX LPR SETUP 

PARAMETER LEAVING THE 

OTHER LPR PARAMETER 

BITS UNCHANGED. 
SELECT THE NEXT BAUDRATE. 

I OOP TO TX/RX AGAIN IF NOT PAST LAST BALORATE. 



PERFORM WIDE OPEN DMA TEST. 



I i 



DHL) 11 f\JHC IsT PART4 
HAMOUARf tTST 



8517 
8518 

8520 
8521 
8522 
8523 
8524 
8525 
8526 
8527 
8528 
8529 
8530 
8531 
8532 
8* 55 
8534 
8535 
8536 
8537 
8538 
8539 
8540 
8541 
8542 
8543 
8544 
8545 
8546 
8547 
8548 
8549 
8550 
8551 
8552 
8553 
8554 
8555 
8556 
8557 
8558 
8559 
8560 
8561 
8562 
8563 
8564 
8565 
8566 
8567 
8568 
8569 
8570 
8571 
8572 
8573 



035366 
035370 
035374 
035376 
035400 
035402 
035404 
035406 
035410 
035412 
035414 
035416 
035422 



005001 
012702 
110122 
105201 
001375 
105301 
110122 
105701 
001374 
110122 
005201 
020127 
001373 



035430 
035432 
035436 
035442 
035446 
035452 
035456 
0SS464 



035472 
035476 
035500 

035506 
035512 



012501 
004767 
012702 
012703 
012704 
004767 
012767 
012767 



004767 
103126 
012767 

004767 
004767 



035516 004 767 



MACRO H1200 
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TRANSMIT AND RECEIVE 512 BYTE DATA PATTERNS AT ALL COMBINATIONS OF 9.6K. 
19. 2K. AND 38. 4K BUAORATES AND 5 AND 8 BITS PER CHARACTER. USE 1 STOP BIT 
AND NO PARITr GENERATION OR DETECTION. 



INITIALIZE THE 512 BYTE PATTERN AND THE VARIOUS DATA PATTERN POINTERS. 



003602 



7»: 
8(: 

lot: 



000040 



CLR 
MOV 
MOVB 
INCB 
BNE 
DEC6 
MOVB 
TSTB 
BNE 
MOVB 
INC 
CMP 
BNE 



Rl 

06UFBAS.R2 

R1.CR2)* 

Rl 

7$ 

Rl 

R1.(R2). 

Rl 

8$ 

R1.(R2). 
Rl 

Rl.*32. 
10* 



CLEAR THE DATA BYTE COUNTER. 
GET THE BASE OF THE DATA PATTERN BUFFER. 
WRITE A BYTE OF THE DATA PATTERN. 
GET THE NEXT BYTE FOR THE DATA PATTERN. 
LOOP UNTIL FIRST 1/2 OF PATTERN IS DONE. 
iGET THE NEXT BYTE FOR THE DATA PATTERN. 
URITE A BYTE OF THE DATA PATTERN. 
CHECK FOR DONE WRITING DATA PATTERN. 
LOOP IF DATA PATTERN IS NOT DONE. 
WRITE A BYTE OF THE 32 BYTE OVERFLOW REGION. 
COUNT THIS BYTE. 
TEST FOR 32 BYTES WRITTEN. 
LOOP UNTIL 32 BYTES ARE WRITTEN. 



PREPARE TO LOOP ON THE 3 DIFFERENT BAUORATES (9.6K. 19. 2K. AND 38.4K), 



035424 012705 005072 



MOV 



<«)LPRTB.R5 



;GET THE BASE ADR OF THE DMA BAUORATE TABLE. 



163100 
003602 
001000 
000001 
171136 

177400 144546 
021633 147624 



165234 

021636 147610 



12t: 



SPECIFY THE PROPER BAUORATE. 
SPECIFY 8 BITS PER CHARACTER 

PERFORM DMA TRANSMISSION ANORECEPTION OF 512 BYTE DATA PATTERN. 



THE FOLLOWING ROUTINE REPORTS THE ERROR WITH NUMBERS 914 THRU 921. 
lPR change bit error FLAGS MAY BE SET BY THIS SUBROUTINE. 

sSET UP LPR PARAM AT NEXT BAUD. 8 BITS/CHAR. 
;GET TIME-OUT BASED ON MINIMUM BAUORATE IN USE. 
SET UP THE START ADR OF THE DATA PATTERN. 
SET UP THE DATA PATTERN LENGTH. 
SPECIFY TO SEND 1 DATA PATTERN TO EACH LINE. 
SET UP "VANILLA FLAVORED" TX/RX. 
jFORM BIT MAP OF UNUSED BITS FOR 8 BITS/CHAR. 
sSET ERROR NUMBER TO 9115. 

! THIS ROUTINE REPORT^ ERROS WITH NUMBERS >n>>> 9115 THRU 9117 <<<<<. 



MOV 


CR5). .Rl 


JSR 


PC.GETTIM 


MOV 


«eUF8AS.R2 


MOV 


♦512. .R3 


MOV 


*1.R4 


JSR 


PC . VANSUP 


MOV 


♦177400. IBM 


MOV 


♦9115. .ERRNBR 



035522 
035526 



005 767 
001407 



165422 
163076 



165446 
144476 



JSR PC.PUFJFR 

BCC 60S 

MOV ♦9118. .ERRNBR 

JSR PC.PUKRXB 

JSR PC.INIDMA 



J PURGE THE OUT RECEIVE CHARACTER FI^O. 
s ABORT THIS TEST IF FIFO WOULD NOT PURGE. 
-.SET ERROR NUMBER TO 9118. 

;PURGE THE RX CHAR BUFFER IN MEMORl . 
;SENO THE FIRST BATCH OF DATA PATTERNS. 



THIS ROUTINE REPORTS THt ERROR WITH NUMBERS >>>>> 9118 THRU 9125 
JSR PC.RDCHRS ;REAO AND VERIFY THE RX CmARAC'EHS. 



TST 
BEQ 



FERROR 
14$ 



;HAS AN ERROR BEEN DETECTED ? 
iNO. THEN BRANCH. 



DHL 11 FUNC TST PA«r4 
HAROUARf TEST 
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fix 



85 M 


035530 


032767 


000100 


8575 


035536 


001470 




85 76 








8577 


035540 


012767 


021644 


8578 








8579 








8580 








8581 


035546 


004767 


170474 


8582 


035552 


005767 


144446 


8583 


035556 


001404 




65S4 


035560 


032767 


000100 


8585 


035566 


001454 




8586 








8587 


035570 


012767 


021650 


8588 








8589 








8590 








8591 








8592 


035576 


042701 


000030 


8593 


035602 


004767 


171006 


8594 


035606 


012767 


177740 


8595 








8596 








8597 








8598 


035614 


004767 


165112 


8599 


035620 


103055 




8600 


035622 


012767 


021654 


8601 








8602 


035630 


004767 


165300 


8603 


035634 


004767 


162754 


8604 








8605 








8606 








8607 


035640 


004767 


165324 


8608 


035644 


005767 


144354 


8609 


035650 


001404 




8610 


035652 


032767 


000100 


8611 


035660 


001417 




8612 








8613 


035662 


012767 


021662 


8614 








8615 








8616 








8617 


035670 


004767 


170352 


8618 


035674 


005767 


144324 


8619 


035700 


001404 




8620 


035702 


032767 


000100 


8621 


035710 


001403 




8622 








8623 


035712 


020527 


005100 


8624 


035 7 16 


103644 




8625 








8626 








8627 








8628 








8629 








8630 


035720 







BIT «BIT06. OPTION 
BEQ 50$ 



:HAS EXTENDED ERROR 'REPORTING BEEN REQUESTED ? 
jNC. THEN EXIT THE TEST. 



14$ I 
16$: 



MOV «9124. .ERRNBR sSET ERROR NUMBER TO 9124, 
THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9124 THRU 9127 <<<*<. 



JSR 

TST 
BEQ 

BIT 
BEQ 

MOV 



PC.TXRREP 

FERROR 

16$ 

OBIT06.0PTI0N 
50$ 



jREPORT FINAL ERRORS FROM RX/RX. 
HAS AN ERROR BEEN DETECTED 7 

NO Then branch 

HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
NO. THEN EXIT THL TEST. 



*9128. .ERRN8R jSET ERROR NUMBER TO 9128. 



SPECIFY 5 BITS PER CHARACTER, 

PERFORM DMA TRANSMISSION AND RECEPTION OF 512 BYTE DATA PATTERN. 



BIC 
JSR 
MOV 

*TMIS 

JSR 
BCC 
MOV 

JSR 
JSR 



030. Rl iSET UP CHAR LENGTH PARAM TO 5 BITS/CHAR, 

PC.VANSUP J SET UP "VANILLA FLAVORED" TX/RX. 

#177740. IBM ;FORM BIT MAP OF UNUSED BITS FOR 5 BITS/CHAR. 

ROUTINE REPORTS THE ERROR WITH NUMBERS >>> 9128 THRU 9131 <<<. 



PC.PUFIFR 
60$ 

•9132. .ERRNBR 

PC. PURRXB 
PC . INIDMA 



jPURGE THE DUT RECEIVE CHARACTER FIFO, 
s ABORT THIS TEST IF FIFO WOULD NOT PURGE. 
;SET THE ERROR REPORT NUMBER TO 913?, 

;PURGE THE RX CHAR BUFFER IN MEMORY. 
:SENO THE FIRST BATCH OF DATA PATTERNS. 



THIS ROUTINE REPORTS THE ERROR WITH NUMBERS >>>>> 9152 THRU 9137 <<<<< 



18$; 



JSR 

TST 
BEQ 

BIT 
BEQ 

MOV 



PC.RDCHRS 

FERROR 

16$ 

♦6IT06.0PTI0N 
50$ 



:REAO AND VERIFY THE RX CHARACTERS. 
J HAS AN ERROR BEEN DETECTED ? 
J NO. THEN BRANCH. 

}HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
:N0. THEN EXIT THE TEST. 



09158. .ERRNBR ;SET ERROR NUMBER TO 9138. 



THIS ROUTINE REPORTS THE ERROR WITH NUMBERS >>>>> 9138 THRU 9141 <<<<< 



20$; 



JSR PC.TXRREP 

TST FERROR 

BEQ 20$ 

BIT •eiT06. OPTION 

BEQ 50$ 

CMP R5.WLPRTE 

BLO 12$ 



:REPORT FINAL ERRORS FROM RX/RX. 
(HAS AN ERROR BEEN DETECTED ? 
:N0. THEN BRANCH. 

:HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
sNO. THEN EXIT THE TEST. 

(COMPARE DMA BAUDRATE TABLE PTR WITH TABLE END. 
(LOOP IF NOT ALL BAUDRATES DONE YET. 



ALL DONE. HAVE EITHER RUN OUT OF ACTIVE I INES. OR COMPLETED THE TEST. 
DISABLE INTERRUPTS. 
CLEAR THE INTERRUPT VECTORS. 



<;E0 219 



50$: 



SETPRI OPRIO? 



(DISABIE ALL INTERRLIPTS. 



NI 



OHO U TUNC TST PART4 
HAROWARF TFST 



OSS 720 
055724 

8631 OSS 726 
055726 
0SS752 

8652 05S754 
055754 
055740 

8635 

8654 055742 
8635 055750 
8656 055 754 
055754 
055760 
8637 035762 
8658 035766 
055766 
055766 



012700 
104441 

016700 
104456 

016700 
104436 

012767 
004767 

012700 
104441 
005067 



104401 



nACRO HI 200 
DHA 

000540 



144256 

144226 

021666 
166054 

000540 

144252 
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CLRVEC TXVECfl 



147346 



60« : 



CLRVEC RXVECA 



JSR 

SETPRI 



CLR 
ENOTsr 



«9142. .ERRNBR 
PC. REPSHR 
•PRIG' 



CTRLCr 



HOV »PRI0 7.R0 

TRAP CiSPRI 

:RETURN TX INT VECTOR TO UNUSED POOL. 

HOV TXVECA.RO 

TRAP CtCVEC 

jRETURN RX INT VFCTOR TO UNUSED POOL. 

HOV RXVECA. RO 

TRAP C*CVEC 



SELECT NUMBER 9142 FOR THE NEXT ERROR REPORT. 
REPORT ERROR SUMHARIES IF CALLED FQR, 
DISABLE ALL INTERRijPTS. 

HOv OPRIO'.RO 
TRAP CiSPRI 
; INDICATE THA^ UF ARE NOT WITHIN A TEST. 



L 10053: 



TR/f^ 



CitTST 



OMLi 11 K*«C TbT PART4 
HAROWAftt TEST 



«kv40 

864.'* 
0645 
0644 
S645 
S64b 

»e.4" 

0646 
064Q 

0630 



SPLSPO 
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0651 
0652 
0655 
0654 



8655 
0656 
0657 
0650 
0659 
0660 
0661 
0662 
0663 
0664 
06o5 
8666 
0667 
0660 
0669 
86 •'0 
0671 
0672 
0675 
0674 
0675 



8676 



0677 



0678 



055770 
055770 
055770 
055776 
056000 
056004 
056004 
056010 

056012 
0S6020 
056026 
056054 
056042 
056050 
056054 



036060 
056064 

0S6066 



056072 
056072 
056076 
056100 
056100 
056104 
056110 
056114 
036120 
056122 
036126 
056126 
056132 
056136 
056142 
056146 
056150 
036154 
056154 



126727 
001402 
000167 

012700 
104441 

000010 
012767 
012767 
Ol?'«.7 
012767 
012767 
005067 
005067 



004767 
105402 
000167 



012700 
104441 

012746 
012746 
016746 
012746 
104437 
062706 

012746 
012746 
016746 
012746 
104437 
06270C 

012 700 



144200 
000524 
000240 



000010 
177777 
000001 
021761 
012542 
144424 
144144 



161252 
000436 



000540 

U00300 
027426 
144054 

000003 

000010 

000500 
027216 
144024 
000003 

000010 

000200 



.SBTTL HAROUARE TEST 
t • »••••«••««•««••••*•( 

I* 

!• 
!• 
«• 
»♦ 
»• 
J* 



SPLSPO 



SPLIT SPEED TEST 

THIS TEST IS USED TO VERIFY THE SPLIT SPEEO CAPABILITIES OF THE OHiJll. 
AND THE CORRECT OPERATION OF THE A e B BAlX) RATE GROUP SELECTION, 
THE TEST USES THREE SETS OF BAUD RATES (58.4.50j 1200. 75j 2000.2400). 
THIS TEST WILL ONLY EXECUTE IF THE STAGGARED L00P8ACK HQOE IS SELECTED. 
THE SPECIAL STAGGARED L00P8ACK BERG CONNECTOR HUST BE FITTED. 



000002 



2(i 



144240 
144172 

147260 
14 7254 
147250 



BGNTST 

CMPB 
BEQ 

SETPRI 



TNUM 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 



I OPBCK . »2 

2% 

60 » 

•PRI05 



■ TNUM . I 
•TNUM.TSTNUM 
•l.CTRLCF 
•l.ERRTYP 
•9201..ERRNBR 
•EM9201.ERRMSG 
ERSMRF 
TERROR 



TO: : 

iCHECK MODE SELECTED. 

iDO NOT EXIT IF STAGGERO LOPBCK MODE SELECTED. 
,EXIT THIS TEST, 
jALLOW LTC INTERRUPTS. 

MOV •PRI05.ro 
TRAP CtSPRI 

t INCREMENT THE ASSEMBLY TIME TEST CO^JNTER. 

I SET UP THE TEST NUMBER. (92) 

I INDICATE THAT UE ARE IN A TEST. 

tSET ERROR TYPE IN ERROR TABLE. 

I SET THE FIRST ERROR NUMBER IN ERROR TABLE. 

iSET ERROR MESSAGE ADDRESS IN ERROR TABLE. 

I INITIALIZE THE "REPORT ERROR SUMMARY- FLAGS. 

I CLEAR THE "AT LEAST ONE ERROR" FLAG. 



RESET THE OUT TO A KNOWN STATE. REMOVE STATUS COOES FRQM THE FIFO. 

CLEAR TX AND Rx INTERRUPT ENABLE BITS. 
THIS SUBROUTINE REPORTS ERROR >»>>> 9201 <<<<<. 



JSR 
BCS 
JMP 



PC.CLNRST 

..6 

60 1 



jRESET THE OUT. 

I ABORT 'HE TEST IF FATAL ERROR FOUND IN RESET, 



! DISABLE ALL INTERRUPTS. 

» SET UP DMA TX AND RX INTERRUPT SERVICE ROUTINES. 
' ^ •PRI07 {DISABLE ALL INTERRUPTS. 

MOV 
TRAP 

I SELECT DMA TX INT SERVICE RTN. 



SETPRI 
SETVEC 



T X VEC A . 4T XOMA . «PR 106 



SETVEC RXVECA.«RXCHRS.»PRI06 



SETPRI «PRI04 



MOV 
MO^ 
MOV 
MOV 
TRAP 
ADO 

I SELECT RX INI SERVICE RTN. 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

lAllOU INTERRUPTS. 

HOV 



•PRI07.ro 
CtSPRI 

•PRl06.-tbP> 
•TXDMA. (SP' 
TXVECA, A SP' 
•5. (SP^ 
CtSvEC 
♦10. SP 

•PRI06. (SP' 
•RXCHRS. ISP^ 
RXVECA, aSP> 
•5. (SP^ 
CISVEC 
•10. 

•PR104.RO 



ST PARI* 
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A^ 

9^^0 

A6«^ 
8693 
5684 

868^ 
8688 
8689 
86O0 
8691 
869^ 
86'>S 
8«>94 
8695 
8696 
869-' 
8698 
8699 
8700 
8701 
8702 
8703 
8704 
8705 
8706 
8707 
8708 
8709 
8^10 
8711 
8712 
8715 
8714 
8715 
8716 
8717 

8.18 
8719 
8720 
8721 
87J2 
8725 
8724 
8725 
8726 
8727 
8728 
8729 
87S0 
8751 
8752 
8^55 
8754 



03b l^0 104441 



TRAP 



03Mb2 
056166 



056172 
056176 



0S6202 
0S6206 
036210 
0S6212 
056216 
056222 
056224 
036226 
056254 
036240 



056246 
0S62S2 
056254 

056262 
036266 



036272 
056276 
036502 
056304 
036312 



012705 
004 767 



012700 
004767 



012705 
012500 
012501 
004767 
012702 
CI 2503 
012504 
012767 
004767 
012767 



004 767 
105126 
012767 

004767 
004 767 



004 767 

005767 
001404 
052767 
001475 



177777 
167236 



003502 
161156 



005100 



162320 
005154 



177400 
166444 

021762 



164460 

021765 

164646 

162322 



164672 
143722 

000100 



056514 012767 021773 



ENABLE TRANSMITTERS ON ALL LINES. 



MOV OMAPLNb.RS iPASS ACTIVE LINE BIT MAP. 

JSR PC.TXENBL lENABLE TRANSMISSIONS ON ALL LlNtS. 

CLEAR ERROR TABLE PRIOR TO PERrOMING TX/RX TEST. 

MOV •ERCNTB.RO lUtT THE BASE ADDRESS OT THE ERROR CO«JNTER TBL 

JSR PC.CtRlbW iCLEAR THE Rx ERROR CO«JNTERS TABLE. 

PERFORM SPLIT SPEED DMA Tx AND RX ON ALL SELECTED LINES AT THE FOLLOWING 
BAUD RATES. 

38. 4K. 50 i 1200. 75 i 2000. 2400. 

» 

INITIALISE DMA TX/RX PARAMETERS IN THE CONTROL BLOCK FR EACH OF ThF BAiX) 
RATES MENTIONED ABOVE. 
8 BITS/CHAR. 1 STOP BITS. ODD PARITr. 



1437 76 
14 7050 



147034 



MOV tSPLPRB.RS 

41: MOV (R5)*.R0 

MOV (R5)>.R1 

JSR PC.GETTIM 

MOV •S0P2B.R2 

MOV (R5)*.R3 

MOV (R5)*.R4 

MOV #177400. IBM 

JSR PC.SPLSUP 

MOV •9202. .ERRNBR 

I THIS ROUTINE REPORTS ERRORS 

' JSR PC.PUFIFR 

BCC 60* 

MOV •9205.. ERRNBR 



JSR 
JSR 



PC.PURRXB 
PC.INIDMA 



(GET BASE ADDRESS OF LPR PARAMETER TABLE. 

iGET LPR CONTENTS FQR LINGRP II. 

I GET LPR CONTENTS FOR LINGRP I. 

I GET TIME-OUT BASED ON MINIMUM BAUORATE IN USE 

I SET UP THE START ADR OF THE DATA PATTERN. 

I GET NUMBER OF R£Ph.'>T TRANSMISSION ON UlNGRPII 

I GET NUMBER OF REPEAT TRANSMISSION ON LINGRP I. 

tSET THE UNUSED BIT MASK FOR 8 BITS/CHAR. 

iSET UP CONTROL BLOCK ETC. FOR TX/Rx. 

iSET THE ERROR NUMBER TO 9202. 

UITH NUMBERS »>>»> 9202 THRU 9204 <<<<<. 

tPURGE THE DUT RECEIVE CHARACTER FIFO. 
I ABORT THIS TEST IF FIFO WOULD NOT PURGE. 
I SET ERROR NUMBER TO 9205. 

I PURGE THE RX CHAR BUFFER IN MEMORY . 
iSEND THE FIRST BATCH OF DATA PATTERNS. 



143650 
1467 74 



I THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>«> 9205 THRU 9210 

I RE AO AND VERIFY ThL Rx CHARACTERS. 
iHAS AN ERROR BEEN DETECTED ? 
I NO. THEN BRANCH. 

iHAS EXTENDED ERROR REPORTING BEEN RfOLCSTED 
iNO. THEN EXIT THE TEST. 



JSR 
TST 

BEQ 
BIT 

BFO 



PC.ROCHRS 
F ERROR 
61 

•6IT06.0PTI0N 
50 1 



6t; 



MOV 



•9211. .ERRNBR iSET THE ERROR NUMBER TO 9,^11. 



036322 
036526 



004 767 
005767 



167720 
1436 



I THIS ROUTINE REPORTS ERRORS WITH NUMBERS 9211 ThRu «»214 <■ 

I 

JSR PC.TXRREP iREPORT FINAL ERRORS FROM Rx RX. 

TST FERROR |HAS AN ERROR BEEN DETECTED ? 
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■£0 ^S-S 



8 '55 


036552 


001404 




8756 


056554 


052767 


000100 


8'57 
8'58 


036542 


001457 










875<» 0J6544 


012767 


021777 


8740 








8-4 1 








8 '4 J 








0745 


036352 


010246 




6744 


0365S4 


010002 




8745 056356 


010100 




8746 


036360 


010201 




8747 


036562 


010502 




8748 


036364 


010403 




8749 


036566 


010204 




8750 


036370 


012602 




8751 


036372 


004767 


166306 


8752 
8'55 














8'54 








8755 








8756 


036376 


004767 


164550 


8757 


036402 


103052 




8758 


036404 


012767 


022002 


8759 








8760 


036412 


004767 


164516 


6761 


036416 


004767 


162172 


8762 








8763 








8764 








8765 


056422 


004767 


164542 


8766 


036426 


005 ^67 


145572 


8767 


056452 


001404 




8768 


056434 


032767 


000100 


8769 


036442 


001417 




8770 








8771 


036444 


012767 


022010 


8772 








8775 








8774 








8775 


056452 


004 767 


167570 


8776 


036456 


005767 


145542 


8777 


056462 


001404 




8778 


036464 


032767 


000100 


8779 


036472 


001403 




8780 








8781 


036474 


020527 


005130 


8782 


036500 


103642 




8^83 








8, '84 








8785 








8786 








8787 


056502 








056502 


012700 


000340 




036506 


104441 




8788 


036510 








036510 


016700 


143454 



BEQ 

Bir 

BEQ 
MOV 



8» 

«BIT06. OPTION 
SOI 



iNO. THEN BRANCH. 

iHAS EXTFNDFO ERROR REPORT TNT, ftEFN RFOiJFSTED ? 
tNO. THEM EXIT THE TEST. 



•9215. .ERRNBR »SET ERROR NUMBER TQ 9215, 



I • 



I SWAP PARAMETERS TO ALLOU TOR BOTH CHANNELS TO BE EXERCISED. 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 



R2. (SP) 

R0.R2 

Rl.RO 

R2.R1 

R3.R2 

R4.R3 

R2.R4 

(SP)..R2 

PC.SPLSUP 



,PUSM THE START ADDRESS ONTO THE STACK. 



J SWAP THE TWO SETS OF 
I PARAMETERS OVER. 



(RESTORE THE START ADDRESS. 

»SET UP CONTROL BLOCK ETC. FOR TX/Rx. 



J THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9215 THRU 9217 <<<<< 



JSR PC.PUFIFR 

BCC 60 » 

MOV 09218. .ERRNBR 

JSR PC.PURRXB 

JSR PC . INIDMA 



iPURGE THE OUT RECEIVE CHARACTER FIFO. 
J ABORT THIS TEST IF FIFO WOULD NOT PURGE. 
:SET ERROR NUMBER TO 9218. 

; PURGE THE RX CHAR BUFFER IN MEMORf. 
sSFNO THE FIRST BATCH OF DATA PATTERNS. 



5 THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>»>> 9218 THRU 9225 <<<*< 



JSR 
TST 

BEQ 
BIT 

BEQ 

MOV 



PC.ROCHRS 

FERROR 

lOJ 

•BIT06.0PTI0N 
50* 



jREAO AND VERIFY THE RX CHARACTERS. 
jHAS AN ERROR BEEN DETECTED 7 
:N0. THEN BRANCH. 

;HAS EXTENDED ERROR REPORTING BEEN REQUES'^EO ? 
;N0. THEN EXIT THE TEST. 



09224. .ERRNBR tSET ERROR NUMBER TO 9224. 



10$; 

ItmIS ROUTINE REPORTS ERRORS WITH NUMBERS >»>>» 9224 THRU 9227 c<.<,. 

* iREPORT FINAL ERRORS FROM RX/RX. 

;HAS an error BEEN DETECTED ? 
;N0. THEN BRANCH. 

|HAS EXTENDED ERROR REPORTING BEEN REQL€STEO 
jNO, THEN EXIT THE TEST. 



JSR 
TST 

BEQ 
BIT 

BEQ 



PC.TXRREP 

FERROR 

12t 

•61106. OPTION 
50$ 



12$: 
I * 



50$ ! 



CMP R5.«SPlPRE I CHECK IF ALL PARAMETERS HAvE BEEN DONE. 

BLO 4» J IF NOT DONE LOOP TO SELECT THE NExr PARAMUfR. 



DISABLE INTERRUPTS. 

CI EAR THE INTERRUPT VECTORS. 



SfcTPRI OPRIO/ 
CLRVFC TXVECA 



I DISABLE ALL INTERRL»>TS. 

^Wv •fr'JilO'.RO 

TRAP CISPRI 
iRETURN Tx INI VECTOR TO (.•*USED POOL. 

MCV TWICA.RO 



DHL" II F\.iUC TST PART4 
HAROUARfc TEST 



056514 

8790 056516 

8791 0565^4 
8 792 056550 
8795 056554 

056554 
056554 



104456 

012767 
004767 
005067 



104401 



MACRO m^oo 
SPLSPD 
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022014 146572 MOV 09228 .. ERRNBR 

165500 JSR PC. REP jMR 

145464 60»: CLR CTRLCF 

ENOTST 



TRAP C4CVEC 

jSELECT NUMBER 9228 FOR THE NEXT ERROR REPORT, 
I REPORT ERROR SUMMARIES IF CALLED FOR, 
1 INDICATE TMAT UE ARE NOT UITMIN A TEST. 

i 10034: 

TRAP C»ETST 



Om.' II FUNC Tsr PART4 
HARDUARL TEST 



8706 
8797 
8798 
87«W 
8800 
8801 
8802 
8805 
8804 
8805 



nACRO ni200 
REPBHP 



8806 

880 ; 

8808 
8809 
8810 
8811 
8812 
8815 
8814 
8815 
8816 
8817 
8818 
8819 



8820 
8821 
8822 
8823 
8824 



036556 
056556 

036536 
056544 
056552 
036556 
036562 
036564 



036566 
056572 
056572 
0565 ■'4 
036576 
036600 

056602 

0566 10 
036614 
056614 
056614 



000011 
012767 
012767 
016702 
012705 
020205 
001411 



012767 
005067 

104401 
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.SBTTL HARDWARE TEST 



REPBMP 



!* 

* 
• 

• 
* 



REPORT ANY BMP COOES IN THE QUEUE 
THIS IS A PSEUDO TEST USED TO REPORT ANY BMP CODES THAT WERE f 0<JND 
IN THE OUT'S FIFO DURING PREVIOUS TEST, AND LOGGED IN THE BMP CODE 
QUEUE. 

IT IS UNLIKELY THAT RUNNING THIS PSEUDO TEST ALONE WILL PRODUCE ANf 
ERROR REPORTS. 



00001 I 
177777 
145752 
002512 



143514 
143446 



BbNTST 




TNUM • 


■= TNUM ^ I 


MOV 


•TNUM.TSTNUM 


MOV 


♦ l.CTRLCF 


MOV 


BMPCQP,R2 


MOV 


#fiMPCQB.R3 


CMP 


R2.R3 


BEG 


60$ 



I ♦ 

s 

i - 



T9: : 

; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
J SET UP THE TEST NUMBER. (95) 
INDICATE THAT UE ARE IN A TEST. 
GET THE CONTENTS Of" THE POINTER. 
GET THE START ADDRESS Of" THE QUEUE. 
I SEE If" THE POINTER HAS MOVED PROM THE BASE- 
lEXIT NO CODES IN THE QUEUE. 

THERE IS AT LEAST ONE BMP CODE IN THE QUEUE. REPORT THE ERROR. 

:REPORT ERROR BMP LODE FOUND IN TEST NN. BMP CODE:NNNNNN" 



012701 012746 

104455 
022125 
012572 
015626 



002512 
145404 



145700 



60»! 



MOV 
ERROF 



MOV 

CLR 
ENOTST 



♦EM9504.R1 jPASS THE FIRST MESSAGE TO BE REORTED. 

9501.EM9501,ER9501 ; ERROR W501 <<<<<. 

TRAP C$ER0F 
.WORD 9501 
.WORD EM9501 
.UORO ER9501 



♦BMPCQB.BMPCQP 

CTRLCF 



:SET POINTER BACK TO THE BEGINING OF THE QUE. 
J INDICATE THAT UE ARE NOT UITHIN A TEST. 

L 10055: 



TRAP 



CJETST 



DHL' II f l.<NC TSl 
HAROUARf TE<;T 



PART 4 
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REPBHP 



6»5i 
8854 
8835 
8836 
8837 
8858 
8839 
8840 
8841 
8842 
8843 
8844 
8845 
8846 
8847 
8848 



8649 
8859 
6860 



8661 
8862 



8663 
8864 



8865 
8866 



6867 
6806 
8669 



0566 lt> 
056616 
056620 



036620 
036620 
036622 
036624 
036636 

036630 
0366 30 
036632 
036634 
036636 

036640 
036640 
036642 
036644 
036646 
036650 

036652 
036652 
036654 
036656 
036660 
036662 



00002: 



000031 
036664 
160000 
177776 



001031 
036702 
000040 
000776 



002032 
036735 
177777 
000000 
177777 



003032 
036763 
000377 
000001 
000005 



6870 
8877 



036664 
036664 



.SBTTL HARDWARE PARAMETER COOING SECTION 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



BGNHRD 



iOEVICE CSR ADDRESS QUESTION; 

GPRMA HWPTQl.O.0. 160000. 1 77776. rES 



{DEVICE INTERRUPT VECTOR QUESTION; 

GPRMA HWPTQ2.2.0.40.776.VES 



{ACTIVE L.INES BIT MAP QUESTION: 

GPRMO HUPTQ3 .4.0. MAPLNS . 0 . MAPLNS . vE S 



»TyPE Of LOOPBACK QUESTION; 

GPRMD HUPTQ4.6.0.577,1.5.YES 



L SHARD: 



.WORD L 10036 L$HAR0/2 



8878 036664 


103 


123 


122 


056667 


040 


101 


104 


056672 


104 


122 


105 


036675 


123 


125 


072 


036700 


040 


000 





ENOHRD 



HWPTQl: .ASCIZ /CSR ADDRESS: / 



L 10036: 



.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



.EVEN 



T»COOE 
HWPTQl 
TSLOLIM 
T$HILIM 



T$COOE 
HWPTQ2 
TJLOLIM 
^SMILIM 



TJCOOE 

HWPTQ3 

MAPLNS 

TJLOLIM 

T»H1LIM 



TJCOOE 
HWPTQ4 

577 

TILOLIM 
TJHILIM 
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88 79 


036 ^02 


lit 


1 16 


124 




036705 


105 


122 


12c 




036710 


125 


120 


124 




036713 


040 


126 


1 AC 

103 




036716 


103 


124 


117 

11' 




036721 


122 


Ail /\ 
040 


1 A 1 

101 




036724 


i04 


1 nit 
104 


I2«i 




036727 


105 


123 


1<:3 




036752 


072 


040 


AAA 


8880 


036735 


101 


103 


1 "^A 
It* 




056740 


111 


126 


1 AC 
lOD 




056 /43 


Ail A 

O40 


1 14 


111 

111 




056746 


116 


105 


AAA 
0«»U 




036751 


102 


4 i 1 
111 


1 OA 




056754 


Ail A 

040 


113 


1 A1 
101 




036757 


m OA 

120 


O'C 


AAA 




036762 


AAA 

000 






8681 


056763 


4 "^il 

124 


111 

131 


1 OA 
IcU 




056766 


4 AC 

105 


040 


117 

11/ 




036 ' f 1 


1 A^ 

XOO 


AAA 


1 1 A 
1 l** 




2£ T Til 

036 / 74 


117 

117 


11 ' 


1 OA 

lev 




056 (if 


1 A'5 

10<: 


1 A1 
lUl 


1 AT 




05700c 


1 1 T 

113 


AAA 


A*\A 




05 f^OOO 


AJl. 1 

Ool 


A7^ 
0 '3 


111 
111 




0570LO 


1 1 

lib 


1 ^A 


1 AC 




037013 


122 


1 1 £ 

lib 


1 A1 

lUl 




03 ^016 


1 1 ii 
114 


ACA 


AAA 




037021 


062 


A7Q 

0 to 


1 1 A 
110 




0 3 7024 


A£ T 

063 


A£A 

060 






037027 


0 71 


AAA 


117 
11' 




05 /032 


122 


AAA 
040 


1 1 A 
1 10 




03 /^03d 


A£ T 

063 


A^O 


\K> 1 




A T TAJI A 

' 040 


A£. 7 

067 


ACA 
054 


AAA 




A'S TAil T 

03704 3 


063 


075 


1 1 A 
110 




A T 7 Ail £. 

U5 f 04d 


A£. T 

063 


Oo2 


AiLC 
U03 




A T T AC 1 

0370dI 


A 1 C 

OlD 


A 1 ^ 

012 






Al 7AC H. 


Ail A 

040 


AAA 


AAA 




AT 7AC^ 


Ail A 

040 


AA A 
040 


AAA 




AT7AiL1 
r UOl 


Ail A 


AAA 

o*»u 


AAA 




AT 7A£ it 
'U04 


Ail A 

040 


AAA 
04U 


AAA 






Ail A 

04 0 


AAA 
040 


AAA 




AU 7A7 

lU fid 


Ail A 

040 


AAA 
040 


AAA 




AX7A7C 


04U 


AAA 

o*»o 


A£.A 

004 




A T 7 1 A/^ 


A 7C 
0 fJ 


11c; 
11 J 


117 
11' 




AT 7 1 Al 


1 Ail 

104 


1 AC 

lOD 


1 1 C 
113 




AT 7 1 AiL 


ACil 

OD4 


AAA 


Ut>3 




AT71 1 1 
r ill 


A7C 

0 ' D 


11V 

113 


1 AC 
103 






1 XI 




11' 




037117 


101 


122 


104 




037122 


040 


105 


105 




057125 


110 


117 


051 




037130 


072 


040 


000 



HWPTQ2: .ASCIZ /INTERRUPT VECTOR ADDRESS: / 



HWPTQ3: ASCIZ /ACTIVE LINE BIT MAP: / 



HUPTQ4: .ASCII /TYPE OF LOOPBACK (1»INTERNAL. 2^M5029 OR H3277. 3«H325/< 15>« 12> 



.ASCIZ / 



4 MODEM, 5<KE^B0ARC ECHO^: / 



6883 
8864 



.EVEN 



IC TSI PART4 MACRO f1l200 
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68<*5 

88«»5 
88<>6 

8896 
88<»9 
8<?00 
8901 
8902 
8905 
8904 
8905 
8906 



8916 
8917 



8918 
8919 



8920 
8921 



8922 
8923 
8924 
8925 

8926 
8927 
8928 



8929 
8930 



037154 
037134 
037136 



057156 
037136 
037140 
037142 

057144 
037144 
037146 
037150 

037152 
037152 
037154 
037156 



037160 
037160 



8951 
8932 



037162 
037162 
037164 
037166 
037170 
037172 

037174 

037174 



000017 



000130 
037174 
000020 



000130 
037250 
000040 



000130 
037330 
000100 



006044 



001052 
037363 
177777 
000000 
177777 
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.SBTTL SO^TUARE PARAMETER COOING SECTION 



THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACRC^ 
THAT ARE USED BY THE SUPERVISOR TO BUILD P TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOU THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
UITM THE OPERATOR. 



^tO 22^ 



BGNSFT 



sUNIT NUMBER PRINTOUT QUESTION: 
6PRML SWPTQl. 0.20, YES 



LSSOFTi 



.WORD L10037-LISOF T/2 



.WORD T J CODE 
.UORO SUPTQl 



;REPORT NUMB OT BITS TESTED IN DMA ADDR TEST QUESTION: 
GPRML SWPTQ2. 0.40. YES 



! EXTENDED ERROR REPORTING QUESTION: 
GPRML SUPTQ3.0.100.YES 



.WORD 20 



.WORD T$C00E 
.WORD SUPTQ2 
.UORO 40 



.WORD TtCOOE 
.WORD SUPTQ3 



.UORO 100 

IF EXTENDED ERROR REPORTING IS NOT REQUIRED THEN SKIP THE NExT QUESTION. 
XFERF 2$ 



sNUr«ER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE QUESTION: 
GPRMO SWPTQ4. 2.0. 177777.0. 177777.TES 



2t: 



ENOSFT 



L 1003 7: 



.UORD T»CODE 

.WORD T$COOE 

.UORO SUPTC4 

.WORD 17'7-'- 

.WORD TJLOLIM 

.UORO TSMILIM 

.EVEN 



8939 037174 


122 


105 


120 


037177 


117 


122 


124 


037202 


040 


125 


116 


037205 


111 


124 


040 


057210 


116 


125 


115 


037215 


102 


105 


122 



SUPTQl; .ASCIZ /REPORT UNIT NUMBER AS EACH »JNIT IS TESTED: 



J. 



OHU 11 f ONC rST PAftT4 MACRO Ml^OO 
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057216 


040 


101 


123 


057221 


040 


105 


101 


037224 


103 


110 


040 


037227 


125 


116 


111 


037232 


124 


040 


111 


037235 


125 


040 


124 


037240 


105 


123 


124 


037245 


105 


104 


072 


037246 


040 


000 




8940 037250 


122 


105 


120 


037253 


117 


122 


124 


037256 


040 


116 


125 


037261 


115 


102 


105 


037264 


122 


040 


117 


037267 


106 


040 


102 


03 ■'272 


111 


124 


125 


037275 


040 


124 


105 


037300 


123 


124 


105 


037303 


104 


040 


111 


037306 


116 


040 


104 


037311 


115 


101 


040 


037314 


101 


104 


104 


037317 


122 


040 


124 


037322 


105 


123 


124 


037325 


072 


040 


000 


8941 037330 


105 


130 


124 


037333 


105 


116 


104 


037336 


105 


104 


040 


037341 


105 


122 


122 


057344 


117 


122 


040 


037347 


122 


105 


120 


037352 


117 


122 


124 


037355 


111 


116 


107 


037360 


072 


040 


000 


8942 037363 


116 


125 


115 


037366 


102 


105 


122 


057571 


040 


117 


106 


057574 


040 


111 


116 


05T377 


104 


111 


126 


057402 


111 


104 


125 


037405 


101 


114 


040 


037410 


104 


101 


124 


037413 


101 


040 


105 


057416 


122 


122 


117 


057421 


122 


123 


040 


037424 


124 


117 


040 


037427 


122 


105 


120 


037432 


117 


122 


124 


037435 


040 


117 


116 


037440 


040 


101 


040 


057443 


114 


111 


116 


057446 


105 


072 


040 


037451 


000 







SUPTQ2: .ASCIZ /REPORT NUMBER OF BITS TESTED IN DMA ADDR TEST: / 



SUPTQ3: .ASCIZ /EXTENDED ERROR REPORTING: / 



SUPT04: .ASCIZ /NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE 



8943 
8944 



.EVEN 



OW-ll f^JHC TST PART4 MACRO M1200 15 MAR 84 09:48 PAGE 142 
SOfTUARt PARAMETER CODING SECTION 

8953 
8954 

8955 037432 »PATCH-: 

8956 057452 .8LKU 24 
8957 

6964 
6965 
6966 
6967 

6968 037522 LASTAD 

037522 000000 
037524 000000 

037526 LJLAST:: 

6969 037526 ENOMOD 
8970 

6971 
6972 
8973 
8974 
8975 
6976 

8977 OOOOOl .END 



sEO a If J 



.EVEN 
.WORD 0 
.UORO 0 



OMU 11 fUNC TST PART4 
SYMBOL TABlf. 

ACTLNS 00^172 G 
AOOR 025220 
ADR • 000020 G 
AORPTM 017270 G 
ALTFLO 016020 G 
ASSEMB* 000010 
SCOUNT 002306 G 
BORHSG 010020 C 
BITSTO 033676 
BITTBL 002364 G 
BITO ' OOOOOl G 
BITOO > OOOOOl G 
BITOI - 000002 G 
BIT02 - 000004 G 
BIT03 - 000010 G 
BIT04 - 000020 G 
BITOS - 000040 G 
6IT06 ■ 000100 G 
6IT07 - 000200 G 
BZT08 - 000400 G 
BIT09 > 001000 G 
6IT1 « 000002 G 
BITIO - 002000 G 
BITll > 004000 G 
6IT12 - 010000 G 
BIT13 ■ 020000 G 
BIT14 > 040000 G 
BIT15 « 100000 G 
BIT2 . 000004 G 
BIT3 • 000010 G 
BIT4 . 000020 G 
BITS » 000040 G 
BIT6 • 000100 G 
BIT? . 000200 G 
BIT8 » 000400 G 
BIT9 • 001000 G 
BMPCQB 002512 G 
BMPCQE 002712 G 
BMPCQP 002510 G 
BOe « 000400 G 
BRLEVL 002175 G 
BRTBLB 002424 G 
BRTBLE 002464 G 
BUTBAS 003602 G 
BUTENO 004602 G 
BUTMID 004202 G 
BUF3QT 004402 G 
CALMSL 016072 G 
CBB 003122 G 
CBOPAM 003126 G 
CBOPLA 003150 G 
CBOPNA 003132 G 
CBLNCA 003124 G 
CBLP6A 003136 G 
CBLPRA 003122 G 
CBMAPA 003134 G 
CBOrSA 003140 G 
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CHCNTB 


003442 


G 


CHKEXT 


016316 


G 


CHKLOS 


016416 


G 


CHRTOT 


002476 


G 


CKCHR 


016520 


G 


CKFRPR 


016736 


G 


CKI^4AC 


017150 


G 


CKTRAP 


017256 


G 


CKTRP6 


017306 


G 


clkeIrl 


002272 


G 


CLKCSR 


002270 


G 


CLKHRZ 


002276 


G 


CLKINT 


027146 


G 


CLKVEC 


002274 


G 


CLNRST 


017336 


c 


CLR16U 


017360 


G 


CONMAP 


017402 


G 


CSRA 


002200 


G 


CSRO - 


000000 


G 


CTRLCF 


002220 


G 


CtAU - 


000052 




CtAUTO- 


000061 




CtBRK - 


000022 




CtBSEG* 


000004 




CI6SUB- 


000002 




C(CEFG- 


000045 




C«CLCK- 


000062 




CtCLEA- 


000012 




CtCLOS- 


000035 




CICLPl- 


000006 




C»CVEC- 


000036 




CtOCLN- 


000044 




ctooou- 


000051 




CtORPT- 


000024 




CIDU " 


000053 




C«EOIT- 


000003 




CtEROF- 


000055 




C*ERHR- 


000056 




CIERRO- 


000060 




CtERSF- 


000054 




CSERSO- 


000057 




CtESCA- 


000010 




C*ESEG- 


000005 




C$ESUB- 


000003 




C»ETST« 


OOOOOl 




CIEXIT- 


000032 




CtGETB- 


000026 




CIGETU- 


000027 




CIGMAN- 


000043 




CtGPHR- 


000042 




CtGPLO- 


000030 




C$GPRI- 


000040 




CIINIT- 


000011 




C*INLP» 


000020 




C$t1ANI« 


000050 




C»MEM » 


000031 




C$MSG - 


000023 





L 
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C$OPEN* 


000034 




CtPNTB* 


000014 




CIPNTF- 


000017 




CIPNTS- 


000016 




CfPNTX- 


000015 




CtQIO - 


000377 




CtROBU- 


000007 




CIREFG> 


000047 




CIRESE- 


000033 




CtREVZ- 


000003 




CIRFLA- 


000021 




CtRPT > 


000025 




CISEFG- 


000046 




CtSPRI- 


000041 




CtSVEC- 


000037 




C»TPRI« 


000013 




DELAY 


017456 


G 


DFPTBL 


002150 G 


DIAGMC- 


000000 




OLPRTB 


005072 


G 


OLPRTE 


005100 G 


□MRU 


017570 


G 


onrsTA 


002222 G 


0ni6B 


017516 


G 


OOOMA 


017712 


G 


OPENOB 


003142 


G 


DPLENB 


003202 


G 


OPRSQB 


004642 


G 


OPRSQE 


005042 


G 


ORAORT 


002200 G 


DROP 


030454 




DuriY 


033700 




EOPFMT 


005422 


G 


EDROP 


030532 




EF.CON' 


000036 


G 


EF.NEU- 


000035 G 


EF.PUR- 


000034 


G 


EF.RES- 


000037 


G 


EF.STA- 


000040 G 


EF0S03 


005530 


G 


EF1601 


005535 


G 


EF1603 


005567 


G 


EF4401 


005631 


G 


EF6201 


005746 


G 


EF6202 


006061 


G 


EF620S 


006157 


G 


EF9001 


006254 


G 


EF9002 


006336 


G 


EF9003 


006410 


G 


EF9004 


006437 


G 


EF9005 


006467 


G 


EF9006 


006520 


G 


EF9007 


006544 


G 


EF9006 


006640 G 


EF9009 


006677 


G 


EF9010 


006736 


G 


EF9012 


007025 


G 



EF901 3 




r; 

U 


EF9019 


007206 

\^ \^ f t ^^^^ 


G 


EF9020 


007225 


G 


EF9101 


007306 


G 


EF9103 


007311 


G 


EF9301 


007357 


G 


EF9302 


007435 


G 


EMLMSG 


013074 


G 


EMOlOl 


022070 


G 


EM0102 


022154 


G 


EM0103 


010047 


G 


EM0509 


010105 


G 


EM 1601 


010111 


G 


EH4401 


010174 


G 


En4402 


010224 


G 


EM4403 


010272 


G 


EM4404 


010367 


G 


EM4405 


010426 


G 


EM4406 


010522 


G 


En4407 


010576 


G 


EM4408 


010660 


G 


En4409 


010723 


G 


EM4410 


010760 G 


En4411 


011007 


G 


En6201 


011054 


G 


EM6202 


011106 


G 


En6301 


011115 


G 


EM6901 


011146 


G 


Eri9003 


011173 


G 


En9004 


011215 


G 


En9006 


011233 


G 


EM9007 


011306 


G 


Emooe 


011371 


G 


EM9009 


011452 


G 


En9010 


011476 


G 


Emoii 


011522 


G 


EM9012 


011532 


G 


En90l3 


011542 


G 


Eri9014 


011551 


G 


En9015 


011645 


G 


En9016 


011661 


G 


EM9017 


011670 G 


En9025 


012001 


G 


EM9026 


012075 


G 


En9027 


012121 


G 


EH9026 


012201 


G 


EM9050 


012260 


G 


En9101 


012335 G 


Eri9102 


012377 


G 


En9104 


012466 


G 


En9201 


012542 G 


Eri9301 


012572 


G 


EM9302 


012651 


G 


En9303 


012701 


G 


EM9304 


012746 


G 


En9401 


01302c 


G 


ENDETB 


00460? 


G 









ERCNTB 


003305 




ERLTBL 


00360P 


G 


ERRBLK 




n 

u 


ERRMSG 


005320 


G 
u 


ERRNbR 


005316 


G 


ERR I'YP 


005314 


G 


ERSMRF 


002500 


G 


EROlOl 


015500 


G 


ER0503 


01403? 


G 


ER1603 


014070 


G 


ER6201 


01416? 


r. 

w 


ER9001 


014420 


G 


ER9002 


014520 


G 


ER9003 


014676 


G 


ER9004 


015070 


G 


ER9005 


015204 


G 


ER9101 


015444 


G 


ER9102 


015504 


G 


ER9301 


015626 


G 


EVL « 


000004 


G 


EXCNTB 


003242 


G 


EXTMSG 


013143 


G 


E$END ' 


002100 




ESLOAD* 


000035 




FOATA 


002206 


G 


FDATO - 


000006 


G 


FERROR 


002224 


G 


FFREM 


002226 


G 


FINACT 


020002 


G 


FRPSUP 


020062 


G 


FSLSA 


002206 G 


FSLSO « 


000006 


G 


F$AU « 


000015 




F(AUTO> 


000020 




F$BGN • 


000040 




F$CLEA* 


000007 




F$DU > 


000016 




F$EHO - 


000041 




F$HARO« 


000004 




F$HU * 


000013 




F$INIT« 


000006 




F$jnP - 


000050 




Finoo - 


OOOOCO 




F$MSG ■ 


000011 




F$PROT- 


000021 




FfPUR > 


000017 




FtRPT « 


000012 




F$SEG ' 


000003 




F$SOFT» 


000005 




F$SRV • 


000010 




FSSVJB * 


000002 




F$SU - 


000014 




F$TEST» 


OOOOOl 




GETBOR 


020326 


(} 


GETCHR 


020454 


G 


GETPRM 


0301 76 
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GE T TIM 


020536 


G 


LIN6I T 


020706 


G 


L ISPTP 


002024 


G 


GMANWO 


002230 


G 


LNCTRA 


002210 


G 


L $STA 


002030 


G 


GPRSOB 


002464 


G 


LNCTkO" 


000010 


G 


LtSU 


002162 


G 


GICNTO* 


000200 




LOE • 


040000 


G 


LITEST 


002114 


G 


G*D£LM» 


000372 




L0P8CK 


002174 


G 


L*TIML 


002014 


G 


GiOISP* 


000003 




LOT « 


000010 


G 


L lUNIT 


002012 


G 


GIEXCP' 


000400 




LPCSLT' 


000036 


G 


L 10000 


002160 




G»HILI» 


000002 




LPRA 


002204 


G 


L 10001 


002166 




GtLOL I • 


000001 




LPRO • 


000004 


G 


LI 0002 


013614 




GtNO • 


000000 




L$ACP 


002110 


G 


LI 0003 


014066 




G$Of fS' 


000400 




LIAPT 


002036 


G 


L 10004 


014160 




&»0' SI • 


000376 




DAU 


030540 


G 


L 10005 


014416 




GfPRnA" 


00000 1 




L *AUT 


002070 


G 


L 10006 


n 1 A C 1 £ 

014516 




GfPRPlD" 


000002 




LIAUTO 


0304 10 


G 


L 10007 


014674 




GIPRML ■ 


000000 




L»CCP 


OO2106 


G 


L 10010 


015066 




G$RADM" 


000140 




1 A ^1 C A 

L SCLcA 


nsnA 4 ^ 

050412 


G 


LlOOll 


015202 




G9RADB* 


oooooo 




1 * ^n 

L9C0 


nnon^*^ 

OO2032 


G 


L10012 


n 4 C A A ^ 

015442 




/~ « n Ann 


00OO40 




1 4 neon 
L IDcPO 


002011 


G 


1 % nn« v 

L10013 


015502 




G 9 SAUL ■ 


000120 




L 9Dc.bU 


nnc 1 '7 A 
0035 74 


G 


1 % nn 1 A 

L10014 


015624 




Gf RADO* 


000020 




1 4 nc en 


nn'^m'£ 

002076 


G 


1 * nn % c 

L 10015 


016016 




G»Xr cH« 


000004 




L »Uc.VP 


/\/\on^ n 
002060 


b 


1 « nA S £ 

L 10016 


027564 




G»Tt5 • 


000010 




I 4nTc?n 
L 9DISP 


nn^ 4 A 
002124 


G 


L10020 


050406 




ljCi D » 
rlCLr ■ 


oooooo 




LiOLY 


nno t 1 £ 
002116 


G 


1 1 nnoi 
L10021 


nvnA 1 n 
05O410 




nut » 


lOOOOO 


G 


LfDTP 


nA'^n A n 

0O2O40 


G 


L10022 


n vnA 

050426 




MWK 1 U 1 


OooooA 




1 * n T vD 
L 90 1 TP 


nn^niA 
0O2054 


G 


1 \ nn^i 
L10025 


A VAC T£. 

05055O 




nWK 1 y<f 


056702 




L SOU 


nvnA vn 
0504 50 


G 


1 1 nn^A 

L 10024 


n vnc A A 

050544 




nWH 1 U5 


03o755 




LiOUT 


002072 


G 


1 « nnoc 

L 10025 


031026 




nwr' 1 u*i 


056 7o5 




LiOVTY 


nnc S£ A 
OOd5o4 


G 


1 1 nn^£ 

L 10026 


051270 




iot ■ 


OlOOOO 


G 


1 sec 


002052 


G 


1 4 nn^? 

L 10027 


032222 




TQM 

ion 


002c52 


G 


L$ENVI 


nn^nA a 
002044 


G 


1 % nnvn 

L 10030 


n w ?n£ 

055706 




iUU * 


000040 


G 


L»tHHT 


nnc VIA 

005314 


G 


1 % nnv 4 

L10051 


n V A V 

034322 






0£;oooo 


G 


L»ETP 


002102 


G 


1 4 nn 

L 10032 


n vcnnn 

055000 




TPC Tfl T 


'\ » « 


G 


LiEXPl 


002046 


G 


1 % nn w 

L 10055 


035766 




iniiijnH 


A^n^ < A 
OcfOo 14 


G 


L9tXP4 


002064 


G 


1 « nnv A 

L 10034 


036554 






AAAi An 

OOUIUO 


b 


L»EXP5 


002066 


G 


1 4 nnvc 

L 10055 


nV££ 1 A 

056614 




i At * 


AAA AAA 


□ 


LvHAHD 


036620 


G 


1 1 AA VX. 

L 10056 


056664 




T 4 ill . 
i »HU 


AAAAil i 

00v04 1 




L *Hlf1E 


002120 


G 


1 « nn V "7 
L10057 


n V7 4 "^A 

057174 




T t Al iTn ■ 
i ♦ MU 1 U ■ 


AAAAil 1 




L IHPCP 


002016 


G 


nAPLN5» 


177777 


G 


i >uLN - 


AnAAil i 

00U04 1 




L»nPTP 


002022 


G 


nFlWIT 


007535 


G 




AAAAA 1 
0U004 1 




L(HU 


« en 

002150 


G 


nHcNAo 


002322 


G 


i »HnU - 


AAAAil 1 

UUUU4 1 




LJICP 


nn^ 1 n A 

002104 


G 


nnPRts 


AA^ V^A 

002320 


G 


T i TKlTT s 


AAAAil 1 

UUUU4 1 




L*INX 1 


no^c ^A 
027574 


G 


nnSRO 


nno V 4 A 
002314 


G 


i>nuu ■ 


AAAAil 1 




1 Si Ann 
L >LWP 


002026 


G 


HnSH5 


002316 


G 


T iMCf^ a 

i ♦nau ■ 


AAAnA 1 

UUW4 1 




1 H ACT 

L JLA5T 


037526 


G 




A'^AT Va 

020734 


G 


T tDOPT X 


AAA AAA 




L»LOhD 


002100 


G 


nSr nil 


007566 


G 




AAAAil 1 




1 All 1^ 

L >LIM 


0020 ?4 


G 


nsr ni 2 


007626 


G 


T t Pud s 


AAAAil 1 




L JHRtV 


002050 


b 


nSGl 


013616 


G 


TiDPT 3 

i 9J%r \ ' 


AAAAA 1 




L JNAflt 


002000 


G 


nSG2 


013674 


G 


i •>CU " 


AAAAA 1 
UUUU4 i 




L »PRIQ 


002042 


b 


nSG5 


013753 


G 


T 4QC Tl 1 a 
i » ot 1 \J ■ 


AAAAil 1 




1 #DOAT 

L»rHOl 


02 r 56o 


G 


nsLCNi 


002312 


G 


T < Qr T 3 


AAAAA 1 




1 *DDT 
L %rH 1 


002112 


b 


nSLGc T 


/NO 1 /\ ?A 

021074 


G 


TiCDW a 


AAAAA1 
WUU4 1 




1 ADC DD 
L •RtPr' 


00£06c 


b 


MCI nnn 


021210 


G 












u 


MQCDPT 




ij 


I«TST = 


000041 




L$RPT 


027560 


G 


MS TICK 


002310 


G 


JJJMP * 


coo 16 7 




LISOFT 


037136 


G 


MUL16U 


021440 


G 


LGRPIM 


002236 


G 


L$SPC 


002056 


G 


NOERPT 


002164 


G 


LGRPPM 


002240 


G 


LISPCP 


002020 


G 


NOPMSG 


013224 


G 



NEUCHR 021514 G 
NEUPAS 030156 
NEURES 030150 
NEUSTA 027640 
NUMLNS- 000020 G 
ODTSTA 033702 
OOPS 022024 G 
OPTION 002162 G 
OIAPTS- OOOOOO 
0$AU • OOOOOO 
OtBGNR- 000001 
0$BGNS' 000001 
0$DU • 000001 
OIERRT- 000001 
OtGNSU- 000001 
OIPOIN- 000001 
0$SETU- OOOOOO 
PARATB 002324 G 
PARATE 002344 G 
PAROA 002324 G 
PARIA 002326 G 
PAR2A 002330 G 
PAR3A 002332 G 
PAR4A 002334 G 
PAR5A 002336 G 
PAR6A 002340 G 
PAR7A 002342 G 
PASCNT 002242 G 
PCSLOT- 000016 G 
PORATB 002344 G 
PORATE 002364 G 
POROA 002344 G 
PORIA 002346 G 
PDR2A 002350 G 
P0R3A 002352 G 
P0R4A 002354 G 
P0R5A 002356 G 
P0R6A 002360 G 
P0R7A 002362 G 
PMSFLG 002244 G 
PMSMSG 013352 G 
PNT • 001000 G 
PREGRT 005346 G 
PREG05 005324 
PRFRME 022252 G 
PR I • 002000 G 
PRIOO - OOOOOO G 
PRIOl - 000040 G 
PRI02 • 000100 G 
PRI03 « 000140 G 
PRI04 ' 000200 G 
PR105 - 000240 G 
PRI06 • 000300 G 
PRI07 - 000340 G 
PROTBL 005214 G 
PRPARE 022 356 G 
PRTLPR 022566 G 



PUT If 0 


022650 


G 


PUf IFR 


022732 


C 


PURRXB 


023134 


G 


RBUFA 


002202 


G 


RBUFO • 


000002 


G 


RDCHRS 


023170 


G 


ROMAST 


023630 


G 


RCPCOD 


023670 


G 


REPSMR 


024030 


G 


RESETT 


024056 


G 


RRXNON 


024170 


G 


RTXNON 


024236 


G 


RXBCNT 


002716 


G 


RXBDTX" 


000030 


G 


RXBENO 


^^^^ 9 A ^* 

003120 


G 


RXBETX« 


000020 


G 


RXBf UL » 


000100 


G 


n ▼ n T 

RXBIPT 


002714 


G 


n w n nn ▼ 

RXBOPT 


002712 


G 


RXBSTA 


002720 


G 


RXCMRS 


027216 


G 


RXCNTB 


003542 


G 


RXDONF 


002504 


G 


RXDSBL 


024 304 


G 


RXEN6L 


024400 


G 


RXIEO 


024474 


G 


n w TP 1 

RXIEl 


024534 


G 


RXPTRB 


003402 


G 


RXTIMO" 


000002 


G 


RXTMA 


^ A AAA A 

002202 


G 


nw Tni tT 


002246 


G 


RXVECA 


002166 


G 


nnc"i nT — 

ROSLOT" 


000002 


G 


RISLOT- 


000004 


G 


r> 1 nT _ 

R2SL0T • 


000006 


G 


R3SL0T" 


000010 


G 


R4SL0T » 


AAA A • 

000012 


G 


R5SL0T * 


A A A A « M 

000014 


G 


SAvBMP 


024560 


G 


i\\ «nn T 

SAVPRI 


002250 


G 


SAVTEN 


002252 


G 


^ /^n n Tn 

SCBCTB 


005042 


G 


SCBCTE 


005052 


G 


SCBRTB 


005052 


G 


SCBRTE 


nnc n£ n 

005060 


G 


SCNSTB 


A Af A^ A 

005060 


G 


SCNSTt 


005064 


G 


SCTPTB 


005064 


G 


TO TC 

SCTPTc 


nncn ^ ^ 

005072 


G 


SOPBAS 


nnc 4 vn 

005130 


G 


SDPENO 


nnc 4 cn 

005150 


G 


SOP 28 


005154 


G 






c 
u 


SFPT8L 


002162 


G 


SKPSTS 


024626 


G 


SPLPRB 


005100 


u 


SPLPRE 


005150 


G 



OHU 11 f\JNC rsr PARTA macro MIZOO 15 mar 64 09:46 PAGE 142 5 
SYMBOL TABLE 



SPLSUP 


024 704 


G 


TRPA02 


017520 


G 


TXRON 


026220 


G 


TISUBN* 


000000 


T3 


051272 


G 


STGTRB 


005274 


G 


TSTNUM 


002260 


G 


TXRREP 


026246 


G 


T$TAGL» 


177777 


T4 


032224 


G 


STPSU 


025204 


G 


TXAOIA 


002212 


G 


TXRXLB 


005234 


G 


T»TAGN» 


010040 


T5 


035710 


G 




055704 




TXADtO" 


000012 


G 


TXRXLE 


0052 74 


G 


T$TEMP« 


000000 


T6 


034324 


G 


SVCGSL • 


000000 




TXA02A 


002214 


G 


TXVECA 


002170 


G 


TITEST- 


000011 


T7 


035002 


G 


SVCINS" 


000001 




TXAD20* 


000014 


G 


TtARGC- 


000003 




T$TSTM- 


177777 


T8 


035770 


G 


SVCSUB" 


000001 




TXBFCA 


002216 


G 


TICOOE" 


001052 




T$TSTS« 


OOOOOl 


T9 


036536 


G 


SVCTAG' 


OOOOOl 




TXBfCO' 


000016 


G 


T$ERRN« 


022125 




T$»AU " 


010024 


UAM » 


000200 


G 


SVCTST- 


000001 




TXCNTB 


003502 


G 


T»EXCP" 


000000 






010021 


UBRFMT 


00 V 722 


G 


SWPTQl 


057174 




txoblf 


002506 


G 


T$FLAG* 


000040 




T$*CLt» 


010022 


UNITN 


002176 


G 


SUP T 02 


057250 




TXOMA 


027426 


G 


TIGMAN" 


000000 




T$$DU • 


010023 


UNSDIV 


026362 


G 


SUPTQS 


037550 




TXOONE 


025224 


G 


T*HILI« 


177777 




T$ $HAR" 


010036 


UPOCHR 


026516 


G 


5WPT04 


057565 




TXOONF 


002502 


G 


T$LAST« 


OOOOOl 




T$$HW « 


010000 


VANSUP 


026614 


G 


s»lstm« 


010000 




TX0S8L 


025334 


G 


T$LOLI» 


000000 




T*$INI» 


010020 


UAI6IS 


027012 


G 


TERMSG 


013457 


G 


TXEN8L 


025450 


G 


TILSYM" 


010000 




T»$MSG" 


010015 


WOROl 


002266 


G 


TIMER 1 


002500 


G 


TXEN8M 


002262 


G 


TILTNO" 


000011 




T$$PRO« 


010017 


UTULNC 


027066 


G 


TIMER2 


002502 


G 


TXFRPR 


025524 


G 


T$NEST« 


mm 




T$$RPT» 


010016 


UTULPR 


027116 


G 


TIMERS 


002504 


G 


TXIEO 


025620 


G 


T$NS0 • 


^ A AAA A 

000000 




T$»SOF« 


010057 


XiALWA' 


000000 






OwOll 


o 


T V TC 1 
I Xltl 




Vj 








T 4 4 CLJ 


UlUUvl 




U0UU10 




TP4BRT 


027562 


G 


TXINTF 


002264 


G 


T»PTNU- 


000000 




T»»TES 


010035 


XIOFFS- 


000400 




^P4FLG 


002254 


G 


TXPTRB 


005342 


G 


TISAVL- 


177777 




Tl 


030546 G 


X»TRUE= 


000020 




TP4RTN 


027404 


G 


TXRINI 


025704 


G 


TISEGL- 


mm 




T2 


031050 G 


JPA'-CH 


037452 


G 


TP4VEC 


002256 


G 


TXROFf 


026160 


G 
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